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Preface 



Pascal is available on Sun Workstations as an extended version of the Berkeley 
Pascal system distributed with UNIX4.2BSD. The Pascal compiler (pc) is part 
of the Sun languages software you received with your workstation. It is sup- 
ported by the same profilers, debuggers, and libraries available in C and FOR- 
TRAN 77. In addition, the Sun Pascal system includes a statement-level execu- 
tion profiler (pxp), and a cross-reference generator (pxref ). The original 
Berkeley Pascal Interpreter (pi , px , pix) remains available and is upwardly 
compatible with pc. Most Pascal programs that run on 4.2BSD should port 
easily to Sun Workstations. 

The Sun Pascal system supports Level 1 ISO Standard Pascal, which includes 
conformant array parameters and type-safe procedures and functions as parame- 
ters. In addition, pc supports separate compilation and several extensions for 
improved access to facilities of UNIX, t 

This Programmer’s Guide describes how to use pc, pi, px, pix, and pxp. 
Details of interactive programs and programs combining Pascal with other 
languages are also given. A number of examples are provided, including many 
dealing with input and output. 

This manual consists of eight chapters and four appendices: 

Chapter 1 is an overview of the system and provides some introductory exam- 
ples. 

Chapter 2 discusses the error diagnostics produced by the translators pc, pi, 
the Pascal library, and the interpreter px. 

Chapter 3 describes input and output and gives special attention to interactive 
programs and features unique to UNIX. 

Chapter 4 gives details on the components of the system and explanation of all 
relevant options. 

Chapter 5 describes the calling sequence used by Pascal when calling Pascal rou- 
tines from other languages. 

Chapter 6 describes how to call routines written in C from Pascal programs. 



t UNIX is a trademark of AT&T Bell Laboratories. 
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Basic UNIX Pascal 



The Sun Workstation provides the following Pascal facilities: 

• pc, a compiler 

• pi, an interpreter code translator 

• px, an interpreter 

• pix, a translator and interpreter (combines the functions of pi and px) 

• pmerge, a Pascal file merger 

• pxp, a execution profiler 

• p xr e f , a cross-reference generator 

Pascal’s calling conventions are the same as C’s, with var parameters passed 
by address and other parameters passed by value. 

Both pc and pi support ISO dp7185 Level 1 Standard Pascal, including confor- 
mant array parameters. In addition, pc contains several extensions. Deviations 
from the standard are noted in the BUGS section of the pc manual page. 

In addition to pc, there are other tools you might find helpful for creating Pascal 
programs. 

Text Editing The major text editor for source programs is vi (vee-eye), 

die visual display editor. It has considerable power because it 
offers the capabilities of both a line and a screen editor, vi 
also provides several commands for editing programs, which 
are options you can set in the editor. Two examples are the 
autoindent option, which supplies white space at the 
beginning of a line, and the showmat ch option, which 
shows matching parentheses. For more information, see the 
Editing and Text Processing manual section on vi. 

Debug Aids There are three main debugging tools available on the Sun 
system: 

dbx a symbolic debugger that understands Pascal, C, 
and FORTRAN-77 programs. 

Asun 3 
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dbxtool 

a window- and mouse-based version of dbx. 

adb an interactive, general-purpose, assembly -language 
level debugger. It is generally not as easy to use as 
dbx or dbx. 



man pages The on-line documentation consists of pages from the Com- 

mands Reference Manual called manual or ‘man’ pages. The 
applicable manual pages for Pascal are 

• pc 

• pi 

• pix 

• pmerge 

• px 

• pxp 

• pxref 

To get more information about the syntax for a command, you 
can display any of the manual pages on your screen by typing 
"man" followed by the name of the command. For example, 
to find out about pc, you can type 



ho St name % roan pc 




^ 


J 



Other manuals 

Other Sun manuals containing information on editing or using Pascal are 

1. Editing and Text Processing on the Sun Workstation 

2. Programming Tools for the Sun Workstation 

3. Commands Reference Manual for the Sun Workstation 

4. System Interface Manual for the Sun Workstation 

5. Debugging Tools for the Sun Workstation 

You should be familiar with both basic editing on the Sun Workstation and with 
writing standard Pascal programs before going further in this chapter. 

The examples of developing a Pascal program that follow use ex as the source 
editor mnning under csh. You can use the editor that you are most comfortable 
with; many programmers prefer to use vi. 

If you are new to UNIX or unfamiliar with vi, read one of the introductory 
chapters on text editors, either in the Sun Beginner’s Guide to the Sun 
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Workstation, or Editing and Text Processing manuals before continuing with this 
section. 

1.1. A First Program To prepare a program for Sun Pascal you first need to have an account on UNIX 

and to ‘login’ to the system on this account as described in the Beginner s Guide, 

Once logged in, you need to choose a name for your program; let’s call it first 
since this is the first example. Name the file in which to store the program text as 
first.p, following the convention used by pc to specify Pascal source files. 



A sample editing session to create this file with ex would begin: 



— 




tutorial% ex first.p 




"first.p" [New file] 






J 



If a file by that name exists, the ‘New file’ message would be replaced by the 
number of lines in the file and the size of the file. The prompt indicates that 
ex is ready for command input. You can add the text for the program with the 
‘append’ command as follows. 



r 




: append 




program first (output) 




begin 




writeln( 'Hello ^ world! ') 




end. 






J 



The line with the single ‘ . ’ character tells ex where the end of the appended 
text is, and the ‘:’ prompt indicates that ex is ready for another command. Now 
save the contents of the file first.p with the ‘write’ command so that you can 

use the Pascal translator and interpreter pix to mn your program: 


: write 

"first.p" [New file] 4 lines^ 59 characters 

: quit 

tutorial% 

\ X 



ex indicates the number of lines and characters written. 
Quit the editor to get the shell prompt 
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Now translate and execute the program with pix. 





tutorial% pix first. p 

Wed Dec 11 16:48 1985 first. p: 

2 begin 

e T Inserted ' ; ' 

Hello, world! 

Execution begins. . . 

Execution terminated. 

1 statements executed in 0.02 seconds cpu time. 
tutorial% 

/ 



pix first printed a syntax error diagnostic. The number 2 here indicates that the 
rest of the line is an image of the second line of our program. The translator is 
saying that it expected to find a before the keyword begin on this line. If 
you look at the Pascal syntax charts in the Jensen and Wirth User Manual, or at 
some of the sample programs in it, you can see that we have omitted the ter- 
minating of the program statement on the first line of the program. 

The letter ‘e’at the beginning of the diagnostic line stands for ‘error’ , indicating 
that our input was not legal Pascal. The fact that it is an ‘e’ rather than an ‘E’ 
indicates that the translator managed to recover from this error well enough that 
code generation and execution could take place. Execution is possible whenever 
no fatal ‘E’ errors occur during translation. 

The other classes of diagnostics are ‘w’ warnings, which do not necessarily indi- 
cate errors in the program, but point out inconsistencies which are likely to be 
due to program bugs, and ‘s’ for violations of the ISO Pascal standard. 

The standard Pascal warnings occur only when the associated s translator option 
is enabled. The s option is discussed in the Options section, below. Warning 
diagnostics are discussed near the end of the Error Diagnostics section; the asso- 
ciated w option is described in the Options common to pi, pc, and px section. 

After completing the translation of the program to interpretive code, the Pascal 
system indicates that execution of the translated program began. The output 
from the execution of the program then appeared. At program termination, the 
Pascal runtime system indicated the number of statements executed, and the 
amount of cpu time used, with the resolution being within 1/60’th of a second. 

Now you can fix the error in the program and generate a permanent object code 
file with pi. pi translates Pascal programs but stores the object code instead 
of executing it. 



This example indicates some useful approaches to debugging Pascal programs: 

You can shorten commands in both edand ex to an initial prefix of the command name with the substitute 
comma be used to execute other shell commands without leaving the editor. 
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( N 

tutorial% ex first. p 

"first. p” 4 lines^ 59 characters 

: 1 print 

program first (output ) 

:s/$/; 

program first (output) ; 

: write 

"first. p” 4 lines, 60 characters 

:quit 

tutoriai% pi first. p 

tutorial% 

Vs J 



Now use the UNIX Is command to see what files now exist: 



tutorial% Is 
first .p 
ob j 

tutorial% 

Vs / 



The file ‘obj’ here contains the Pascal interpreter code. We can execute the code 
by typing: 

tutorial% px obj 
Hello, world! 

1 statements executed in 0.00 seconds cpu time. 
tutorial% 

V 



Alternatively, the command: 




has the same effect. Some examples of different ways to execute the program fol- 
low. 



tutorial% px 
Hello, world! 

1 statements executed in 0.00 seconds cpu time. 

tutorial% pi -p first. p 

tutorial% px obj 

Hello, world! 

tutorial% pix -p first. p 

Hello, world! 

tutorial% 

s ) 



Note that, unless told otherwise, px assumes that ‘obj’ is the file you wish to 
execute. The last two translations use the -p (no-post-mortem) option to 
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eliminate execution statistics and summary messages. See the Options common 
to pi, pc, and px section for more details. 



If you now look at the files in your directory you’ll see: 





A 


tutorial% Is 




f irst .p 




obj 




tutorial% 




s 





You can give your object program a name other than ‘obj’ with the move com- 
mand mv . So to name your program ‘hello’: 



— 


N 


tutorial% mv obj hello 




tutorial% hello 




Hello^ world! 




tutorial% Is 




first .p 




hello 




tutorial% 




V 


J 



Finally, delete the Pascal object code file with rm: 



/ 




tutorial% rm hello 




tutorial% Is 




first .p 




tutorial% 






J 



For developing small programs, pix can be more convenient to use than pi or 
px. 

Except for absence of the object file after rurming pix, running pix is 
equivalent to miming pi followed by px. 

For larger programs where you want to make a number of mns testing different 
parts of the program, pi is useful since you can execute the object file any 
number of times. 

1.2. Using pc pc is the Sun Pascal compiler. If given an argument file filename .p, pc 

compiles the file and leaves the result in an executable file called (by default) 
a . out. 



For example, consider the example file greetings . p : 



f 




program greetings (output ) ; 




begin 




writeln ( ' Hello^ world' ) 




end. 




V 


^ 



Compile the program with pc then mn it as follows: 



sun 
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f 




hostname% pc greetings. p 




hostnaine% a. out 




Hello, world 




hostname% 






J 



A program can be separated into more than one . p file, pc can compile a 
number of . p files into object files having the extension . o in place of . p . 
Object files can then be loaded to produce an executable a . out file. Exactly 
one object file must supply a program statement to successfully create an exe- 
cutable a . out file. The rest of the files must consist only of declarations that 
logically nest within the program. 

References to objects shared between separately compiled files are allowed if the 
objects are declared in included header files having the extension . h . Header 
files may only be included at the outermost level, and thus declare only globally 
available objects. 

To allow external functions and procedures to be declared, an external direc- 
tive has been added, which is used like the forward directive but can only 
appear in . h files. A binding phase of the compiler checks that declarations are 
used consistently, to enforce the type-checking mles of Pascal. 

Other language processors that create object files can be loaded together with 
object files created by pc . The functions and procedures they define must be 
declared in . h files included by all the . p files that call those routines. 



1.3. Formatting the Program It is possible to use special lines within the source text of a program to format the 
Listing program listing. An empty line prints without a line number. A line containing 

only a control-L (formfeed) character causes a page eject in the listing with the 
corresponding line number suppressed. With pi, the -n command line option 
begins each listed include file on a new page with a banner line. 



1.4. Execution Profiling 



An Example 



An execution profile consists of a stmctured listing of (all or part of) a program 
with information about the number of times each statement in the program was 
executed for a particular run of the program. These profiles can be used for 
several purposes. In a program that was abnormally terminated due to excessive 
looping, recursion, or a program fault, the counts can help you to locate the error. 
Zero counts mark portions of the program that were not executed; during the 
early debugging stages they should prompt new test data or a reexamination of 
the program logic. The profile is perhaps most valuable, however, in drawing 
attention to the (typically small) portions of the program that dominate execution 
time. This information can be used for source-level optimization. 

A prime number is a positive integer with exactly two divisors, itself and one. 
The program primes determines the first few prime numbers. In translating 
the program, the — z option is specified on the command line to pc . This 
option causes the compiler to generate counters and additional code that record 
the number of times each statement in the program was executed, which enables 
pxp statement profiling.^ Thus, the program is translated as follows: 



•AsiflT 



ints are completely accurate only in the absence of runtime errors and nonlocal goto statements. 
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hostname% pc -z primes. p 



Run primes as follows: 




f 

2 


3 


5 


7 


11 


13 


17 


19 


23 


29 


A 


31 


37 


41 


43 


47 


53 


59 


61 


67 


71 




73 


79 


83 


89 


97 


101 


103 


107 


109 


113 




127 


131 


137 


139 


149 


151 


157 


163 


167 


173 




179 


181 


191 


193 


197 


199 


211 


223 


227 


229 




ho St name % 























When execution of the program completes (either normally or abnormally) the 
statement counts ate written to die file pmon . out ^ in the current directory. By 
mnning pxp with the source file containing the program and (implicitly) the file 
pmon . out as arguments you can prepare an execution profile. This results in 
the following output; 



This is not generally a problem, however, as in structured programs nonlocal goto statements occur 
infrequently, and counts arc incorrect after abnormal termination only when the upward look (described below) 
to get a count passes a suspended call point. 

2 pmon. out is similar to mon.out and gmon.out, which are used by prof (1) and gprof (1), 
respectively. Note that both of these profilers arc available under pc. 
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— 






hostname% pxp 


primes .p 




Berkeley Pascal PXP — Version 2.14 (11/2/84) 




Sat Jan 12 10 


:01 1985 primes. p 




Profiled Sat 


Jan 12 10:02 1985 




1 


1. 1 program primes (output) ; 




2 


1 const 




2 


1 n = 50; 




2 


1 nl = 7; (*nl = sqrt(n)*) 




3 


1 var 




3 


1 i^ k, X, inc^ lim, square, 1: integer; 




4 


1 prim: boolean; 




5 


1 p, v: array [l..nl] of integer; 




6 


(begin 




7 


1 write (2 : 6, 3 : 6) ; 




7 


1 1 := 2; 




8 


1 X := 1; 




8 


1 inc := 4; 




8 


1 lim := 1; 




8 


1 square := 9; 




9 


1 for i := 3 to n do begin (*find next prime*) 




9 


48. 1 repeat 




11 


76. 1 X :=x + inc ; 




11 


1 inc := 6 - inc; 




12 


1 if square <= x then begin 




13 


5^ 1 + 1; 




14 


1 v[lim] := square; 




14 


1 square := sqr(p[lim + 1]) 




14 


1 end; 




16 


1 k := 2; 




16 


1 prim := true; 




17 


1 while prim and (k < lim) do begin 




18 


157. 1 k := k + 1; 




19 


1 if v[k] < X then 




19 


42. 1 v[k] := v[k] + 2 * p[k]; 




20 


1 prim := x <> v[k] 




20 


1 end 




20 


(until prim; 




23 


1 if i <= nl then 




23 


5. 1 p[i] := x; 




24 


1 write (x : 6) ; 




24 


1 1 := 1 + 1; 




25 


1 if 1 = 10 then begin 




26 


5. 1 writeln; 




26 


1 1 := 0 




26 


1 end 




26 


1 end; 




29 


1 writeln 




29 


1 end. 




V 




J 
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The header lines in the outputs of pc, pi, and pix indicate the version of the 
translator and execution profiler in use at the time this program was prepared. 

The time given with the filename (also on the header line) indicates the time of 
last modification of the program source file. This time serves to version stamp 
the input program, pxp also indicates the time when the profile data was gath- 
ered. 

To determine the number of times a statement was executed, look to the left of 
the statement and find the corresponding vertical bar ‘|’. If this vertical bar is 
labeled with a count, then that count gives the number of times the statement was 
executed. If the bar is not labeled, look upwards in the listing to find the first T 
above the original one that has a count to find the answer. Thus, in our example, 
k was incremented 157 times on line 18, while the write procedure call on 
line 24 was executed 48 times (as given by the count on the repeat on line 9). 

More information on pxp can be found in its manual section pxp (1) and in the 
"Options available in px," "Options available in pc," and "Separate Compilation 
with pc" sections in Chapter 4. 
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Error Diagnostics 



This section discusses the error diagnostics of the programs pi , pc , px and 
pi X. See the manual section pix(l) and the "Options common to pi, pc, 
and px" section in Chapter 4 for more details. All the diagnostics given by pi 
are also given by pc . 

2.1. Translator Syntax Errors This section describes some common syntax errors in Pascal programs and how 

the compiler handles them. 

Illegal Characters Characters such as ‘$’, M’, and ‘@’ are not part of Pascal. If they are found in 

the source program and are not part of a string constant, a character constant, or a 
comment, they are considered to be illegal characters. This can happen if you 
leave off an opening string quotation mark (‘). Most nonprinting characters in 
your input are also illegal, except in character constants and character strings. 
Except for the tab and formfeed characters, which are used to format the pro- 
gram, nonprinting characters in the input file print as the character ‘?’ in your 
listing. 

String Errors There is no character string of length zero in Pascal. Consequently the input 

is not acceptable. Similarly, encountering an end-of-line after an opening string 
quotation mark (") without first encountering the matching closing quote yields 
the diagnostic “Unmatched ' for string.” 

Programs containing ‘#’ characters (other than in column 1) can produce this 
diagnostic. This is because early implementations of Pascal used ‘#’ as a string 
delimiter. In the Sun implementation, *#’ is used for #include and preprocessor 
directives and must be in column 1. 

Digits in Numbers This part of the language is a minor nuisance. Pascal requires digits in real 

numbers both before and after the decimal point. Thus the following statements, 
which look quite reasonable to FORTRAN users, generate diagnostics in Pascal: 
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Wed Dec 11 16:47 1985 digits. p: 



4 r := 0.; 

e " Digits required after decimal point 

5 r := .0; 

0 Digits required before decimal point 

6 r := l.elO; 

0 ^ Digits required after decimal point 

7 r := .05e-10; 

e " Digits required before decimal point 



These contructs are also illegal as data input to variables in read statements 
whose arguments are variables of type real. 

Replacements, Insertions, and When a syntax error is encountered in the input text, the parser invokes an error 
Deletions recovery procedure. This procedure examines the input text immediately after 

the point of error and uses a set of simple corrections to see whether to allow the 
analysis to continue. These corrections involve replacing an input token with a 
different token or inserting a token. Most of these changes do not cause fatal 
syntax errors. The exception is the insertion of or replacement with a symbol 
such as an identifier or a number; in these cases, the recovery makes no attempt 
to determine which identifier or what number should be inserted. Thus, these are 
considered fatal syntax errors. 

Consider the following example: 

hostname% pix -1 synerr.p 

Berkeley Pascal PI — Version 3.5 (8/26/85) 

Wed Dec 11 16:49 1985 synerr.p 

1 program syn ( output); 

2 var i, j are integer; 



e " Replaced identifier with a 

3 begin 

4 for j :* 1 to 20 begin 

0 Replaced with a 

0 — Inserted keyword do 

5 write ( j ) ; 

6 i = 2 ** j; 

0 Inserted 

E " Inserted identifier 

7 writeln(i)) 

E " Deleted ') ' 

8 end 

9 end. 
hostname% 



The only surprise here may be that Pascal does not have an exponentiation opera- 
tor, hence the complaint about This error illustrates that if you assume that 
the language has a feature that it doesn’t have, the translator diagnostic may not 
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indicate this specifically, since it is unlikely to recognize the construct you sup- 
ply. 

If an identifier is encountered in the input but is undeclared, the error recovery 
mechanism replaces it with an identifier of the appropriate class. Further refer- 
ences to this identifier are summarized at the end of the containing procedure 
or function or at the end of the program if the reference occurred in the 
main program. Similarly, if an identifier is used in an inappropriate way, (for 
example, if a type identifier is used in an assignment statement, or if a simple 
variable is used where a record variable is required) a diagnostic is produced 
and an identifier of the appropriate class inserted. Further incorrect references to 
this identifier are flagged only if they involve incorrect use in a different way, 
with all incorrect uses being summarized in the same way as undeclared variable 
uses are. 

If none of the corrections mentioned above appears reasonable, the error recovery 
examines the input to the left of the point of error to see if there is only one sym- 
bol that can follow this input. If this is the case, the recovery prints a diagnostic 
which indicates that the given symbol was ‘expected.’ 

In cases where none of these corrections resolve the problems in the input, the 
recovery may issue a diagnostic that indicates “malformed” input. If necessary, 
the translator can then skip forward in the input to a place where analysis can 
continue. This process may cause some errors in the missed text to be skipped. 

Consider the following example: 


tutorial% pix -1 synerr2.p 

Berkeley Pascal PC — Version 3.5 (8/26/85) 

Wed Dec 11 16:49 1985 synerr2.p: 

1 program synerr2 (input , outpu) ; 

2 integer a (10) 



E " Malformed declaration 

3 begin 

4 read(b); 

E " Undefined variable 

5 for c := 1 to 10 do 

E " Undefined variable 

6 a (c) := b * c; 

E Undefined procedure 

E " Malformed statement 



7 end. 

El- File outpu listed in program statement but not declared 
In program synerr2: 

E - a undefined on line 6 
E - b undefined on lines 4 
E - c undefined on line 5 6 
tutorial% 



Here output is misspelled and given a FORTRAN- style variable declaration 



Undefined or Improper 
Identifiers 



Expected Symbols, 
Malformed Constructs 



■#sun 

XT microsystems 





1 8 Pascal Programmer’s Guide 



that the translator diagnosed as a ‘Malformed declaration.’ On line 6, 
parentheses are used for subscripting (as in FORTRAN) rather than the square 
brackets that are used in Pascal, so the translator noted that a was not defined as 
a procedure (delimited by parentheses in Pascal). As it’s not permissible to 
assign values to procedure calls, the translator diagnosed a malformed statement 
at the point of assignment 

If the translator finds a complete program, but there is more (noncomment) text 
in the input file, then it indicates that an end-of-file is expected. This situation 
may occur after a bracketing error, or if too many ends are present in the input. 
The message may appear after the recovery says that it “Expected since 
a period (.) is the symbol that terminates a program. 

If severe errors in the input prohibit further processing, the translator may pro- 
duce a diagnostic message followed by “QUIT”. Examples include unter- 
minated comments and lines longer than 1024 characters. Consider the follow- 
ing example: 




Expected and Unexpected 
End-of-file, “QUIT” 
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Incompatible Types Since Pascal is a strongly-typed language, many type errors can occur, which are 

called type clashes by the translator. The types allowed for various operators in 
the language are summarized on page 43 of Cooper [1], It is important to know 
that the Pascal translator, in its diagnostics, distinguishes among the following 
type classes: 

array Boolean char file integer 

pointer real record scalar string 

These words are used in many error messages. Thus, if you tried to assign an 
integer value to a char variable you would receive a diagnostic like 

Wed Dec 11 16:47 1985 clash. p: 

E 7 - Type clash: integer is incompatible with char 

. . . Type of expression clashed with type of variable in assignment 

In this case, one error produced a two-line error message. If the same error 
occurs more than once, the same explanatory diagnostic is given each time. 

Scalar The only class whose meaning is not self-explanatory is scalar. Scalar has a 

precise meaning in the Pascal standard where, in fact, it refers to char , 
integer , real , and Boolean types as well as the enumerated types. For 
the purposes of the Pascal translator, scalar in an error message refers to a 
user-defined enumerated type, such as ops in the example above or color in 




For integers, the more explicit denotation integer is used. Although it’s 
correct in the context of the User Guide to refer to an integer variable as a 
scalar variable, the interpreter and compiler prefer mote specific 
identification. 

Function and Procedure Type For built-in procedures and functions, two kinds of errors may occur. If a routine 
Errors is called with the wrong number of arguments a message like 




is displayed. If the type of an argument is wrong, you receive a message like 
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Procedures and Functions as 
Parameters 



Can’t Read and Write 
Scalars, etc. 



Expression Diagnostics 



In standard Pascal, procedures and functions used as formal parameters can be 
declared with (nested) parameter lists of their own. In Jensen and Wirth’s Pascal 
there are no nested parameter lists; therefore, no argument checking is possible in 
calls made to parametric procedures and functions. Berkeley Pascal requires you 
to use parametric procedures to conform to the standard, so programs ported 
from early implementations of Pascal may require modification. 

Error messages stating that scalar (user-defined) types carmot be written to and 
read from files are often mysterious. In fact, if you define 

N 

type color = (red, green, blue) 

V / 



standard Pascal does not associate these constants with the strings ‘red’, ‘green’, 
and ‘blue’ in any way. An extension has been added to Berkeley Pascal that 
allows enumerated types to be read and written; however, if the program is to be 
portable, you must write your own routines to perform these functions. Standard 
Pascal only allows the reading of characters, integers and real numbers from text 
files (not strings or Booleans). It’s possible to make a 





\ 


file of color 






J 



but the representation is binary rather than a string. 

The diagnostics for semantically ill-formed expressions are very explicit as this 
sample translation shows: 
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hostname% pi -1 expr.p 

Berkeley Pascal PI — Version 3-5 (8/26/85) 
Wed Dec 11 16:48 1985 expr.p 



1 program x( output) ; 

2 var 



3 




a : 


set of char; 


4 




b: 


Boolean; 


5 




c: 


(red, green, blue) ; 


6 




P: 


" integer; 


7 




A: 


alfa; 


8 

9 


begin 


B: 


packed array [1..5] of char; 


10 




b 


:= true; 


11 




c 


:= red; 


12 




new (p) ; 


13 




a 


- []; 


14 




A 


= 'Hello, yellow'; 


15 




b 


= a and b; 


16 




a 


= a * 3; 


17 




if 


input < 2 then writeln ( ' boo' ) ; 


18 




if 


p <= 2 then writeln (' sure nuf f ' ) ; 


19 




if 


A = B then writeln (' same' ) ; 


20 

21 


end. 


if 


c = true then writeln (' hue' ' s and 


: - 


Constant 


string too long 



and color' ' s' ) 



15 “ Left operand of and must be Boolean, not set 

16 - Cannot mix sets with integers and reals as operands of * 

17 - files may not participate in comparisons 

18 - pointers and integers cannot be compared - operator was <= 

19 - Strings not same length in = comparison 



20 - scalars and Booleans cannot be compared - operator was = 

21 - Input is used but not defined in the program statement 
In program x: 

w ” constant green is never used 
w - constant blue is never used 
w - variable B is used but never set 
hostname% 



This example is admittedly far-fetched, but illustrates that the error messages are 
clear enough to allow you to easily determine the problem in the expressions. 

Type Equivalence The Pascal translator produces several diagnostics that complain about ‘non- 

equivalent types.’ In general, Pascal considers variables to have the same type 
only if they are declared with the same constructed type or type identifier. Thus, 
the variables x and y declared as 
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Wed Dec 11 16:49 1985 typecju.p: 

E 7 - Type clash: non-identical pointer types 

. . . Type of expression clashed with type of variable in assignment 



It is always necessary to declare a type such as 




and use it to declare 




Note that if we had initially declared 




then the assignment statement would have worked. The statement 




is allowed in either case. Since the parameter to a procedure or function 
must be declared with a type identifier rather than a constmcted type, it is always 
necessary to declare any t3T)e that is used in this way. 



Unreachable Statements Sun Pascal flags unreachable statements. Such statements usually correspond to 

errors in the program logic. Note that a statement is considered to be reachable if 
there is a potential path of control, even if it can never be taken. Thus, no diag- 
nostic is produced for the statement: 
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got OS in Structured 
Statements 



Unused Variables, Never-Set 
Variables 



2.3. Translator Panics, I/O 
Errors 

Panics 



The translator detects and complains about goto statements that transfer con- 
trol into structured statements (e.g., for and while ). It does not allow such 
jumps, nor does it allow branching from the then part of an if statement into 
the else part. Such checks are made only within the body of a single pro- 
cedure or function. 

Although pi always clears variables to zero at procedure and function 
entry, pc does not unless explicitly requested to zero variables with the -Z 
option. It is not good programming practice to rely on this initialization. To 
discourage this practice, and to help detect errors in program logic, pi flags as a 
‘w’ warning error the following: 

• Use of a variable that is never assigned a value. 

• A variable that is declared but never used, distinguishing between those 
variables whose values are computed but that are never used, and those 
that are completely unused. 

In fact, these diagnostics are applied to all declared items. Thus a const or a 
procedure that is declared but never used is flagged. The —w option of pi 
may be used to suppress these warnings; (see "Options" and "Options Common 
to pi, pc, and pix" in Chapter 4). 

Note: Since variable uses and assignments are not tracked across separate compi- 
lation units, pc ignores uninitialized and unused variables in die global scope. 
This also applies to fields or records whose types are global. 



One class of error that rarely occurs, but that causes termination of all processing 
when it does, is a panic. A panic indicates a translator-detected internal incon- 
sistency. A typical panic message is 



r 




snark (rvalue) line=110 yyline=109 




Snark in pi 






J 



If you receive such a message, the translation is quickly and (perhaps) ungrace- 
fully terminated. Save a copy of your program to inspect later, then contact 
Technical Support at Sun Microsystems. If you were making changes to an 
existing program when the problem occurred, you may be able to work around 
the problem by determining which change caused the snark and making a dif- 
ferent change or error correction to your program. 

Panics are also possible in px, particularly if range checking is disabled with the 
-t option. 
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Out of Memory 



I/O Errors 

2.4. Runtime Errors in pix 



Start-up Errors 



Program Execution Errors 



The only other error which will abort translation when no source errors are 
detected is running out of memory. All tables in the translator, with the excep- 
tion of the parse stack, are dynamically allocated, and can grow to take up a good 
deal of process space. In general, you can get around this problem with very 
large programs by using pc and the separate compilation facility. 

If you receive an "out of space" message from the translator during translation of 
a large procedure or function or one containing a large number of string 
constants, you can either break the offending procedure or function into smaller 
pieces or increase the maximum data segment size using the limit command 
of csh(l). 

In practice, the compiler rarely runs out of memory on Sun workstations. 

Other errors that you may encounter when ruiming pi relate to input/output. If 
pi carmot open the file you specify, or if the file is empty, an error occurs. 

The second example illustrates one run-time error. Here are general descriptions 
of run-time errors. The more unusual interpreter error messages are explained 
briefly in fire manual pages section for px (1). 

These errors occur when the object file to be executed is not available or 
appropriate. Typical errors here are caused by the specified object file not exist- 
ing, not being a Pascal object, or not being accessible to the user. 

These errors occur when the program interacts with the Pascal runtime environ- 
ment in an inappropriate way. Typical errors are values or subscripts out of 
range, bad arguments to built-in functions, exceeding the statement limit because 
of an infinite (or very long) loop, or mtuiing out of memory^. The interpreter 
produces a traceback after fire error occurs, showing all the active routine calls, 
unless the -p option was disabled when the program was translated. Unfor- 
tunately, no variable values are given and no way of extracting them is available. 

As an example of such an error, assume that you have accidentally declared the 
constant nl to be 6, instead of 7 on line 2 of the program ‘primes’ (as given in 
the Execution profiling section in Chapter 1). If you mn this program, you get 
the following response; 



^ The checks for running out of memory arc not foolproof and there is a chance that the interpreter will fault, 
producing a core image, \n1ien it runs out of memory. This situation occurs very rarely. 



msun 

xr microsystdms 




Chapter 2 — Error Diagnostics 25 




The interpreter indicates that the program terminated abnormally due to a sub- 
script out of range near line 14, which is eight lines into the body of the program 
primes. 

Interrupts If a program mnning under px is interrupted while executing, and the -p 

option was not specified to pi, then a traceback is printed. ^ The file 

pmon . out of profile information is written if the program was translated with 

the —z option enabled (pc, pi, or pix). 

I/O Interaction Errors The final class of interpreter errors results from inappropriate interactions with 

files, including your Sun workstatioa Included here are bad formats for integers 
and real numbers (such as no digits after the decimal point) when reading. 



Runtime Errors in pc Programs compiled with pc use the same library routines as the interpreter px. 

They detect essentially the same error conditions as px, but support error diag- 
nosis and debugging differently from px. 

When an enor is detected in a program compiled by pc, a message describing 
the error is printed and the program is aborted, producing a core image. For 
example, consider the previous example, which was mn using pix. Compiling 
this program using the -C and -g options and miming it you get 



^ Occasionally, the Pascal system is in an inconsistent state when this occurs (for example, when an interrupt 
teiminates a procedure or function entry or exit). In this case, the traceback <»ily contains the current routine. 
A reverse call-order list of procedures is not given. 
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hostname% pc primes. p -C -g 

hostname% a. out 



2 


3 


5 


7 


11 


13 


17 


19 


23 


29 


31 


37 


41 


43 


47 


53 


59 


61 


67 


71 


73 


79 


83 


89 


97 


101 


103 


107 


109 


113 


127 


131 


137 


139 


149 


151 


157 


163 


167 





Subrange or array subscript is out of range 
Trace/BPT trap (core dumped) 

hostname% 



2 J. Comparing the Compiler 
and the Interpreter 



Since die program was compiled with the -g option you can use dbx or 
dbxtool to help debug the program. 

This section lists differences between the compiler pc and the interpreter pro- 
grams pi /px/pix . pi may be used for small, easy-to-debug programs hav- 
ing negligible execution time. For most applications, pc is a better choice. 



Language Features of pc Not Both pi and pc support ISO standard Pascal with numerous extensions. How- 
Supported by pi ever, some extensions supported by pc are not supported by pi. In most cases, 

these are related to separate compilation or to compatibility with other languages: 

• The predefined type shortreal (IEEE single-precision floating point) 

• External procedure declarations 

• Bitwise logical operations on integral types 

• Preprocessor facilities other than file inclusion 

For details on these and other extensions, see Appendix A. 



Separate Compilation pi compiles a single source file, which can contain finclude commands. As 

in standard Pascal, programs compiled by pi must be organized as a single unit, 
including the outer begin . . . end block and the program heading, pc 
allows programs to be developed as separately compiled source modules. 



Access to UNIX Programs processed by pi carmot call library or UNIX system routines, except 

for routines predefined by pi and built into px. Program modules compiled 
by pc can call library routines directly; details are given in Appendix D. 



Performance pi compiles more quickly than pc, but at the expense of execution efficiency. 

It has been estimated that pi compiles a source program at five times the speed 
of pc, but programs compiled by pi and interpreted by px can ran 30 times 
slower than the same programs compiled by pc. 

These numbers vary according to the application and release version of Berkeley 
Pascal tunning on Sun Workstations. They are given here, however, to illustrate 
the performance tradeoffs between compiled and interpreted programs. 
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Debugging Programs compiled by pc can be debugged using either the assembly-level 

debugger (adb) or the source-level debuggers (dbx and dbxtool). There is 
no debugger miming on Sun Workstations for interpreted Pascal programs, so 
programs compiled by pi must be debugged with writeln and assert 
statements. 
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Input and Output 



This chapter describes features of the Pascal input/output environment, with spe- 
cial consideration of the features specific to interactive programs. 

3.1. Introduction In Sun Pascal, the predefined file variables input and output are equivalent 

to the UNIX standard input and output files {known as st din and stdout). 
Consequently, Pascal programs can be easily used in the UNIX environment to 
read or write files by using the shell to redirect stdin and stdout. For 
example, consider the following program, which copies input to output: 



f 


N 


program copy (input , output ) ; 




var c: char; 




begin 




while not eof to begin 




while not eoln do begin 




read (ch) ; 




write (ch) ; 




end; 




readln; 




writeln; 




end; 




end. 




V 


J 



Assume that the program above is saved in a file called copy . p . First, you 
would compile it and produce a program called copy as follows: 



r 




hostname% pc copy.p -o copy 

V 


j 



Next, run the program. Since the standard files input and output default to 
the terminal, the program simply echoes each line typed, terminating when a line 
beginning with an end-of-file (control-D) character is typed. 



^sun 
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By using the shell’s ">" operator to redirect output, you can create a short text 
file called data. 




Using the same program, but with the "<" operator to redirect input, the file 
prints on the terminal: 




There are other ways to associate Pascal file variables with UNIX files. One sim- 
ple way, which is restrictive but usually portable to other Pascal systems, is to 
list the name of the file as a file variable in the program statement. The Pascal 
library associates the file variable with a file of the same name. For example, the 
following program copies a UNIX file named data to output: 
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Assuming that the file data is still in the current directory and the copydata 
program is saved in copydata . p, you can compile and run the program as 
follows; 



r 


A 


hostname% pc copydata. p -o copydata 




hostname% copydata 




hello, are you listening? 




goodbye, I must go now. 




hostname% 




V 


J 



There are other more flexible ways to associate Pascal file variables with UNIX 
files; for example, actual filenames can be taken fi'om string constants or vari- 
ables, or from command-line arguments using the built-in procedures argc and 
argv. Details are given in later sections of this manual. 

3.2. eof and eoln An extremely common problem encountered by new users of Pascal, especially 

in the interactive environment offered by UNIX, relates to the definitions of eof 
and eoln . These functions are supposed to be defined at the beginning of exe- 
cution of a Pascal program, indicating whether the input device is at the end of a 
line or the end of a file (or neither). 

Setting eof or eoln actually corresponds to an implicit read in which the 
input is inspected, but not “used up.” In fact, there is no way the system can 
know whether the input is at end of file or the end of a line unless it attempts to 
read a line from it. 

If the input is from a previously created file, then this reading can take place 
without mn time action by the user. However, if the input is from a terminal, 
then the input is what you type. If the system does an initial read automatically at 
the beginning of program execution, and if the input is a terminal^, the user 
would have to type some input before execution could begin. This would make 
it impossible for the program to begin by prompting for input. 

Sun Pascal has been designed so that an initial read is not necessary. At any 
given time, the Pascal system may or may not know whether the end of file and 
end of line conditions are true. Thus, internally, these functions can have three 
values: true, false, and “I don’t know yet; if you ask me I’ll have to find 
out” All files remain in this last, indeterminate state until the Pascal program 
requires a value for eof or eoln either explicitly or implicitly, for example, in 
a call to read . The important point to note here is that if you force the Pascal 
system to determine whether the input is at the end of file or the end of line, it is 
necessary for it to attempt to read from the input. 

Consider the following example code: 



^ It is not possible to determine whether the input is a terminal, as the input may appear to be a file but actu- 
ally be a pipe , the output of a program which is reading from the terminal. 
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— 




while not eof do begin 




write (' number, please? '); 




read(i) ; 




writeln ( ' that was a i: 2) 




end 









At first glance, this may appear to be a correct program for requesting, reading 
and echoing numbers. Notice, however, that the while loop asks whether 
eof is tme before the request is printed. This forces the Pascal system to decide 
whether the input is at the end of file. The Pascal system gives no messages; it 
simply waits for the user to type a line. By producing the desired prompting 
before testing eof , the following code avoids this problem: 







write (' number, please ?'); 




while not eof do begin 




read(i) ; 




writeln (' that was a i:2); 




write (' number, please ?') 




end 









You must still type a line before the while test is completed, but the prompt 
asks for it. This example, however, is still not correct. To understand why, it is 
first necessary to know that there is a blank character at the end of each line in a 
Pascal text file. When reading integers or real numbers, the read procedure is 
defined so that when only blanks are left in the file, a zero value is returned and 
the end of file condition is set. If, however, there is a number remaining in the 
file the end of file condition is not set even if it is the last number, since read 
never reads the blanks after the number (and there is always at least one blank). 
Thus, the modified code still puts out a spurious 



r 


\ 


that was a 0 




V 





at the end of a session when end of file is reached. The simplest way to correct 
the problem in this example is to use the procedure readln instead of read. 
In general, unless you test the end of file condition both before and after calls to 
read or readln , there will be inputs that cause your program to attempt to 
read past the end-of-file. 

3.3. More About eoln To have a good understanding of when eo In is tme it is necessary to know that 

in any file there is a special character indicating end-of-line, and that in effect, 
the Pascal system always reads one character ahead of the Pascal read com- 
mands. 

For instance, in response to read (ch), the system sets ch to the current input 
character and gets the next input character. If the current input character is the 
last character of the line, then the next input character from the file is the newline 
character, the normal UNIX line separator. When the read routine gets the 
newline character, it replaces that character by a blank (causing every line to end 
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with a blank) and sets eolntoTRUE. eoln is TRUE as soon as you read the 
last character of the line and before you read the blank character corresponding to 
the end of line. Thus, it is almost always a mistake to write a program that deals 
with input in the following way: 



r 


\ 


read(ch) ; 




if eoln then 




Done with line 




else 




Normal processing 




S 





as this almost always has the effect of ignoring the last character in the line. The 
read (ch)^ belongs as part of the normal processing. 

Given this framework, it is not hard to explain the function of a readln call, 
which is defined as: 







while not eoln do 




get ( input ) ; 




get ( input ) ; 




V 


J 



This advances the file until the blank corresponding to the end of line is the 
current input symbol and then discards this blank. The next character available 
from read is the first character of the next line, if one exists. 

3.4. Output Buffering A final point about Pascal input/output concerns the buffering of the file out- 

put . It is extremely inefficient for the Pascal system to send each character to 
the user’s terminal as the program generates it for output — even less efficient if 
the output is the input of another program such as the line printer daemon 
Ipr (1). To gain efficiency, the Pascal system “buffers” the output characters 
(i.e., it saves them in memory until the buffer is full and then emits the entire 
buffer in one system interaction). However, to allow interactive prompting to 
work as in the example given above, this prompt must be printed before the Pas- 
cal system waits for a response. For this reason, Pascal normally prints all the 
output that has been generated for the file output whenever one of the follow- 
ing occurs: 

• a writeln occurs 

• the program reads from the terminal 

• the procedure message or flush is called 
Thus, in the code sequence 



5 In Pascal ti*rms, read (ck) corresponds to ‘ch := input"; get(input)’. 
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\ 

for i := 1 to 5 do begin 
write (i; 2); 

Compute a lot with no output 

end; 

writeln 

V > 



the output integer does not print until the writeln occurs. The delay can be 
somewhat disconcerting, and you should be aware that it does occur. By setting 
the — b option to 0 before the program statement by inserting a comment of 



the form 


r 




(*$b0*) 






J 



you can cause output to be completely unbuffered, with a corresponding large 
degradation in program efficiency. Option control in comments is discussed in 
the "Using Options" section in Chapter 4. 

3.5. Files, reset, and It is possible to use extended forms of the built-in functions reset and 

rewrite rewrite to get more general associations of UNIX file names with Pascal file 

variables. When a file other than input or output is to be read or written, 
then the reading or writing must be preceded by a reset or rewrite call. In 
general, if the Pascal file variable has never been used before, there will be no 
UNIX filename associated with it. By mentioning the file in a program state- 
ment, however, we can cause a UNIX file with the same name as the Pascal vari- 
able to be associated with it. If we do not mention a file in the program state- 
ment and use it for the first time with the statement 




then the Pascal system generates a temporary name of the form tmp . x for some 
character x, and associates this UNIX filename with the Pascal file. The first 
such generated name is ‘tmp.l’ and the names continue by incrementing the 
filename extension through the ASCII character set. The advantage of using such 
temporary files is that they are automatically removed by the Pascal system as 
soon as they become inaccessible. They are not removed, however, if a runtime 
error causes termination while they are in scope. 

To cause a particular UNIX pathname to be associated with a Pascal file variable 
you can give that name in the reset or rewrite call. For example, you 
could have associated the Pascal file data with the file primes (see "Transla- 
tor Syntax Errors" section in Chapter 2) by doing: 
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In this case it is not essential to mention data in the program statement, but it 
is still a good idea because it serves as an aid to program documentation. The 
second parameter to reset and rewrite can be any string value, including a 
variable. Thus the names of UNIX files to be associated with Pascal file variables 
can be read in at mntime. Full details on filename/file variable associations are 
given in the "Restriction and Limitations" section of Appendix A. 

3.6. ar gc and argv Each UNIX process receives a variable-length sequence of arguments, each of 

which is a variable-length character string. The built-in function argc and the 
built-in procedure argv can be used to access and process these arguments. 

The value of the function argc is the number of arguments to the process. By 
convention, the arguments are treated as an array and indexed from 0 to 
argc— 1 , with the zeroth argument being the name of the program being exe- 
cuted. The rest of the arguments are those passed to the command on the com- 
mand line. Thus, the command 

tutorial% obj /etc/motd /us r /diet /words hello 
^ 



invokes the program in the file obj with argc having a value of 4. The zeroth 
element accessed by argv is obj, the first /etc/motd, and so on. 



Pascal does not provide variable-size arrays, nor does it allow character strings of 
varying length. For this reason, argv is a procedure and has the syntax 





A 


argv(i^ a) 






J 



where i is an integer and a is a string variable. This procedure call assigns the 
(possibly truncated or blank-padded) i ' th argument of the current process to 
the string variable a . The file manipulation routines reset and rewrite 
strip trailing blanks from their optional second arguments so that this blank pad- 
ding is not a problem in the usual case where the arguments are filenames. 

The Pascal program kat illustrates the use of arc and argv, which can be 
used with the same syntax (except for the options to cat) as the UNIX system 
program cat(l). 



First compile the program: 



f 


A 


hostname% pc kat.p -o kat 




V 


J 
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Then run the program: 



hostname% kat kat.p 
program kat (input, output); 
var 

ch: char; 
i: integer; 

name: packed array [1..100] of char; 
begin 

i : = 1 ; 
repeat 

if i < argc then begin 
argv(i, name) ; 

reset (input, name); {nonstandard} 

i := i + 1 

end; 

while not eof do begin 

while not eoln do begin 
read(ch) ; 
write (ch) 

end; 

readln; 

writeln 

end 

until i >= argc 
end { kat } . 
tutorial% 



Note that the reset call to the file input may not be allowed on other sys- 
tems. As this pjogram deals mostly with argc and ar gv and UNIX system- 
dependent considerations, portability is of little concern. 

If this program is in the file kat . p, then do the following: 
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tutorial% pi kat.p 
tutorial% mv obj kat 
tutorial% kat kat.p 
program kat (inputs output) ; 
var 

ch: char; 

i: integer; 

name: packed array [1..100] of char; 
begin 

i : = 1 ; 

repeat 

if i < argc then begin 
argv(i, name) ; 
reset (input, name) ; 
i := i + 1 

end; 

while not eof do begin 

while not eoln do begin 

read (ch) ; 

write (ch) 

end; 

readln; 

writeln 

end 

until i >= argc 
end { kat } . 

1152 statements executed in 0.36 seconds cpu time. 





hostname% kat 

This is a line of text . 

This is a line of text. 

The next line contains only an end-of-file (an invisible control-d!) 

The next line contains only an end-of-file (an invisible control~d!) 

288 statements executed in 0.10 seconds cpu time. 
hostname% 

V ) 



Thus, if it is given arguments, kat (like cat ) copies each one in turn. If no 
arguments are given, it copies from the standard input. Thus it works as it did 
before, with 
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although the mechanisms are quite different in the two cases. 
You can also translate a file differently, for example: 



r 






\ 


tutorial% pi 


-pb 


ft 




tutorial% mv 


obj 


kat 










> 



This disables the post-mortem statistics printing, so as not to get the statistics or 
the full traceback on error. The -b option will cause the system to block buffer 
the input/output so that the program will run more efficiently on large files. You 
could have also specified the -t option to turn off runtime tests and so speed up 
the program. 

Here is one last rerun of the previous examples: 



tutorial% kat xxxxqqq 

Could not open xxxxqqq: No such file or directory 

Error in ”kat” 
tutorial% kat primes 



2 


3 


5 


7 


11 


13 


17 


19 


23 


29 


31 


37 


41 


43 


47 


53 


59 


61 


67 


71 


73 


79 


83 


89 


97 


101 


103 


107 


109 


113 


127 


131 


137 


139 


149 


151 


157 


163 


167 


173 


179 


181 


191 


193 


197 


199 


211 


223 


227 


229 



tutorial% 

\ / 



You could try writing a program which accepts command line arguments like 
pi does, using argc and argv to process them. 
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4.1. Using Options 



The programs pi , pc , and pxp take several options.^ There is a standard 
UNIX convention for passing options to programs on the command line, which is 
followed by the Sun Pascal system programs. As you saw in previous examples, 
option-related arguments consist of the character followed by an option 
name. 



Except for the — b and -f options, each option may be set on (enabled) or off 
(disabled). When an on/off-valued option appears on the command line of pi 
or px , it inverts the default setting of that option. Thus 




disables the run-time tests option -t, since it is on by default. 



In addition to inverting the default settings of pi options on the command line, 
it is also possible to control them within the body of the program by using com- 
ments of the special form: 




The opening comment delimiter, which could also be a ‘(*’, is immediately fol- 
lowed by the character ‘$’. After the which signals the start of the option 
list, you can place a sequence of letters and option controls, separated by com- 
mas. The most basic actions for options are to set them, thus 





A 


{$1+ Enable listing} 




V 





or to clear them 



As pix uses pi to translate Pascal programs, it takes the options of p i also. We refer to them here, 
however, as pi options. 
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4,2. Options Common to pi, 

pc, and pix 



-L — Map Identifiers and 
Keywords to Lower Case 



-b — Buffering of the File 

output 



-i — Include File Listing 



{$t-,p- No run-time tests, no post mortem analysis} 



Notice that ‘+’ always enables an option and ’ always disables it, no matter 
what the default is. Thus has a different meaning in an option comment than 
it has on the command line. As shown in the examples, normal comment text 
may follow the option list. 

The following options are common to both the compiler and the interpreter. 
Refer to the appropriate manual page in Appendix G for a summary of the 
options to each command. With each option the default setting (the setting it 
would have if it appeared on the command line), and a sample command using 
the option are given. 

Programs transported from other systems are often written with mixed-case 
identifiers and keywords. This option cleans up such a program for use with 
Berkeley Pascal. 

The -b option controls the buffering of the file output. The default is line 
buffering, with flushing at each reference to the file input and under certain 
other circumstances detailed in "Options Available in pc" section found later in 
this chapter. Mentioning -b on the command line, that is: 




makes standard output block-buffered, where a block is some system-defined 
number of characters. The -b option can also be controlled in comments. It 
takes a single-digit value rather than an on or off setting. A value of 0, that is 

f {$b0> 



makes output unbuffered, a value of 1 makes if buffered. Any value of two or 
more causes block buffering and is equivalent to the flag on the command line. 
The option control comment setting — b must precede the program statement. 



The — i option takes the name of an include file, procedure or func- 
tion name and causes it to be listed while translating^. Typical uses would be 




to make a listing of the routines in the file scanner . i, and 




* Include files are discussed in the "Multi-file programs" section later in this chapter. 
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to make a listing of only the routine scanner . This option is especially useful 
for conservation-minded programmers who are making partial program listings. 

-1 — Make a Listing The —1 option enables a listing of the program. —1 is off by default. When 

specified on the command line, it creates a header line identifying the version of 
the translator in use and a line giving the modification time of the file being 
translated to appear before the actual program listing. The -1 option is pushed 
and popped by the — i option at appropriate points in the program. 

-s — Standard Pascal Only The -s option causes many of the features of the Berkeley Pascal implementa- 
tion that are not found in standard Pascal to be diagnosed as ‘s’ warning errors. 
This option is off by default and is enabled when mentioned on the command 
line. Some of the features that are diagnosed are nonstandard procedures and 
functions, extensions to the procedure write , and padding of constant strings 
with blanks. In addition, all letters are mapped to lower case except in strings 
and characters, so that the case of keywords and identifiers is effectively ignored. 
The -s option is most useful when a program is to be transported. 

-t and -C — Runtime Tests These options control the generation of tests that subrange variable values are 

within bounds at mntime. pi defaults to generating tests and uses the option 
-t to disable them, pc defaults to not generating tests, and uses the option -C 
to enable them. Disabling runtime tests also causes assert statements to be 
treated as comments.^ 



-w — Suppress Warning 
Diagnostics 



The — w option, which is on by default, allows the translator to print a number of 
warnings about inconsistencies it finds in the input program. Turning this option 
off with a comment of the form 



— 

i$w-} 


J 


or on the command line 




r " " 

hostname% pi —w tryme.p 


\ 




J 


suppresses these diagnostics. 





-z — Generate Counters for a The -z option, off by default, enables the production of execution profiles, 
pxp Execution Profile Specifying -z on the command line: 



f 


N 


hostname% pi —z foo.p 




... 


J 



or enabling it in a comment before the program statement, causes pi and pc 
to insert code in the program to count the number of times each statement was 
executed. An example of using pxp is given in the "Execution profiling" sec- 
tion in Chapter 1; its options are described in the "Options Available in pxp" 

® See the section on the assert statement in Appendix B for details. 



Nr microsystems 







46 Pascal Programmer’s Guide 



section later in this chapter. Note that the -z option cannot be used on 
separately compiled programs. 



43 . Options Available in pi 

— p — Post-Mortem Dump The — p option is on by default, and causes the run time system to initiate a 

post-mortem traceback when an error occurs. The -p option also makes px 
count statements in the executing program, enforcing a statement limit to prevent 
infinite loops. Specifying -p on the command line disables these checks and the 
ability to produce this post-mortem analysis. It does make smaller and faster 
programs, however. It is also possible to control the -p option in comments. 

To prevent the post-mortem traceback on error, -p must be off at the end of the 
program statement 



-o — Redirect the Output 
File 



— o is used to specify the output file used in place of a . out . Its typical use is 
to name the compiled program using the root of the filename of the Pascal pro- 



gram. Thus, 








hostname% pc -o myprog myprog. p 





causes the compiled program myprog . p to be called myprog . 



4.4. Options Available in px The first argument to px is the name of the file containing the program to be 

interpreted. If no argument is given, then the file ob j is executed. If more 
arguments are given, they are available to the Pascal program by using the built- 
ins argc and argv as described in the "argc and argv” section in Chapter 3. 



px can also be invoked automatically. In this case, whenever a Pascal object file 
name is given as a command, the command will be executed with px prepended 
to it; that is 
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4.5. Options Available in pc 

-S — Generate Assembly 
Language 



-g — Symbolic Debugger 
Information 

-o — Redirect the Output 
File 

-p and -pg — Generate an 
Execution Profile 



-O — Run the Object Code 
Optimizer 



-P — Partial Evaluation of 
Boolean Expressions 



-I dir — Specify Directories 
for Include Files 



-Dname=def — Define Name 
to Preprocessor 

-Uname — Undefine Name to 
the Preprocessor 

-f68881 
— ffpa 



The program is compiled and the assembly language output is left in the file 
sourcef ile . s . Thus, 



— 


A 


hostname% pc -S foo.p 




V 


J 



places the assembly language translation of f oo . p in the file f oo . s . No 
executable file is created. 

The -g option causes the compiler to generate information needed by dbx or 
dbxtool, the source-level debuggers. 

-o is the same as in "Options Available in pi." 

The compiler produces code that counts the number of times each routine is 
called. The profiling is based on a periodic sample taken by the system, rather 
than by in line counters (as with pxp ). — p causes a mon . out file to be pro- 
duced for prof (1) . — pg causes a gmon . out file to be produced for 

gprof (1) , a more sophisticated profiling tool. 

The output of the compiler is run through the object code optimizer. This causes 
an increase in compile time in exchange for a decrease in compiled code size and 
execution time. 

Partial evaluation semantics are used on the boolean operators and and or. 
Left-to-right evaluation is guaranteed and the second operand is evaluated only if 
necessaiy to determine the result 



#include files whose names don’t begin with ’7" are searched for first in the 
directory of the file argument, then in directories named in -I options, then 
in user/include/pascal. 

Define ncane to the preprocessor, as if by #def ine. If no definition is given, 
the name is defined as "1." 

This option removes any initial definition of name. 

Generate code that assumes the presence of the MC6888 1 floating-point proces- 
sor (not supported on Sun 2). 

Generate code that assumes the presence of the MC6888 1 floating-point proces- 
sor board (not supported on Sun 2). 
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-fsky 



-g 

-fsoft 
—f switch 



4.6. Options Available in 

pxp 



-a — Include the Bodies of 
All Routines in the Profile 



-d — Suppress Declaration 
Parts from a Profile 

-e — Eliminate #include 
Directives 



-f — Fully Parenthesize 
Expressions 



Generate code that assumes the presence of a SKY^o floating-point processor 
board. Programs compiled with this option can only be run in systems that have 
a SKY board installed. Programs compiled with the -switch option use the 
SKY board, but won’t ran as fast. If any part of a program is compiled using the 
-fsky option, you must also use this option when loading with thef77 com- 
mand, since a different set of startup routines is required. 

Produce additional symbol table information for dbx or dbxtool. Also, pass the 
-Ig file to Id (1). 

Generate code that uses software floating point calls (this is the default state). 

Run-time-switched floating point calls. The compiled object code is linked at 
run-time to routines that support the MC68881, SKY floating-point board, or 
software floating point calls, depending on the system that is running the pro- 
gram. 

On its command line, pxp takes a list of options followed by the program 
filename, which must end in ‘ . p’ (as it must for pi , pc , and pix). pxp 
produces an execution profile if any of the — z , -t , or -c options are specified 
on the command line. If none is specified, then pxp functions as a program 
reformatter. 

It is important to note that only the — z and -w options of pxp , which are 
common to pi , pc , and pxp can be controlled in comments. All other 
options must be specified on the command line to have any effect. 

The options listed below are relevant to profiling with pxp . 

To make the profile more compact, pxp does not normally print the bodies of 
routines that were not executed. This option forces all routine bodies to be 
printed. 

Normally a profile includes declaration parts. Specifying -d on the command 
line suppresses declaration parts. 

Normally, pxp preserves tinclude directives in the output when reformat- 
ting a program, as though they were comments. Specifying -e causes the con- 
tents of the specified files to be reformatted into the output stream instead. This 
is an easy way to eliminate tinclude directives, for example, before tran- 
sporting a program. 

Normally pxp prints expressions with the minimum number of parentheses 
necessary to preserve the structure of the input. This option causes pxp to fully 
parenthesize expressions. Thus, the statement that normally prints as 

— — \ 

d := a + b mod c / e 



Sky is a trademark of SKY Computers, Inc. 
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prints as 



f 




d :== a + ( (b mod c) / e) 




V 
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when the — f option is specified on the command line. 

- j — Left- Justify all Normally, each procedure and function body is indented to reflect its static nest- 

Procedures and Functions ing depth. This option prevents this nesting and can be used if the indented out- 

put would be too wide. 



-t — Summarize Procedure The -t option causes pxp to print a table summarizing the number of calls to 
and Function Calls each procedure and function in the program. It may be specified in 

combination with the — z option, or separately. 



-z — Enable and Control the The — z profile option is very similar to the — i listing control option of pi . If 

Profile -z is specified on the command line, then all arguments up to the source file 

argument (which ends in . p ) are taken to be the names of procedures and func- 
tions or include files that are to be profiled. If this list is null, then the whole 
file is profiled. A typical command for extracting a profile of part of a large pro- 
gram would be 




This specifies that profiles of the routines in the file parser . i and the routine 
test are to be made. 

4.7. Formatting programs The program pxp can be used to reformat programs by using a command of the 

using pxp form 



— 
hostname % pxp dirty. p > clean. p 





V 
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Note that since the shell creates the output file clean . p before pxp executes, 
clean . p and dirty . p must not be the same file. 

pxp automatically paragraphs the program. It performs housekeeping chores 
such as comment alignment, and treating blank lines (lines containing exactly 
one blank or lines containing only a formfeed character) as though they were 
comments, preserving their vertical spacing effect in the output, pxp processes 
four kinds of comments; 

• Left-marginal comments beginning in the first column of the input line are 
placed in the first column of an output line. 

• Aligned comments preceded by no input tokens on the input line are aligned 
in the output with the mnning program text. 

• Trailing comments preceded in the input line by a token are placed with no 
more than two spaces separating the token from the comment. 
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Right-marginal comments, preceded in the input line by a token from which 
they are separated by at least three spaces or a tab, are aligned down the right 
margin of the output. They are aligned to the first tab stop after the 40th 
column from the current “left margin”. 

Consider the following program: 

f >1 

hostname% cat comments. p 

{ This is a left marginal comment . } 

program hello (output ) ; 

var i : integer; {This is a trailing comment} 
j : integer; {This is a right marginal comment} 

k : array [ 1..10] of array [1..10] of integer; {Marginal, but past the margin} 

{ 

An aligned, multi-line comment 
which explains what this program is 
all about 

} 

begin 

i := 1; {Trailing i comment} 

{A left marginal comment} 

{An aligned comment} 

j := 1; {Right marginal comment} 

k[l] := 1; 
writeln(i, j, k[l]) 
end. 

^ > 



When formatted by pxp the following output is produced: 

hostname% pxp comments. p 
{ This is a left marginal comment . } 

program hello (output ) ; 
var 

i: integer; {This is a trailing comment} 

j: integer; {This is a right marginal comment} 

k: array [1..10] of array [1..10] of integer; {Marginal, but past the margin} 

{ 

An aligned, multi-line comment 
which explains what this program is 
all about 

} 

begin 

i := 1; {Trailing i comment} 

{A left marginal comment} 

{An aligned comment} 

j := 1; {Right marginal comment} 

k[l] := 1; 
writeln(i, j, k[l]) 

end. 

hostname% 

> 



Asun 

microsystems 






Chapter 4 — System Component Details 51 



-s — Strip Comments 
— — Underline Keywords 



-[23456789] — Specify 
Indenting Unit 



4.8. pxref 



4.9. Multi-file programs 



The following formatting-related options are currently available in pxp . The 
options -£ and - j described in the previous section may also be of interest. 

The — s option causes pxp to remove all comments from the input text 



A command line argument of the form — _ , as in 



( 


N 


hostname% pxp — _ dirty. p 






J 



causes pxp to underline all keywords in the output for enhanced readability. 

The normal unit that pxp uses to indent a structure statement level is four 
spaces. By giving an argument of the form -d, with d a digit {2<d< 9), you 
can specify that d spaces are to be used per level instead. 



The cross-reference program pxref can be used to make cross-referenced list- 
ings of Pascal programs. To produce a cross reference of the program in the file 
'foo.p' you can execute the command: 




The cross reference is unfortunately not block-structured. Full details on 
pxref are given in the pxref (1) manual page. 

A text inclusion facility is available in Berkeley Pascal. This facility allows the 
interpolation of source text from other files into the source stream of the transla- 
tor. It can be used to divide large programs into more manageable pieces to 
facilitate editing, listing, and maintaining them. The inclusion facility is also 
used in pc for sharing common declarations among separately-compiled 
modules. See the following section for information about compiling modules 
separately with pc . 

The include facility is similar to that of the UNIX C compiler. To use it, 
place the character *#’ in the first position of a line immediately followed by the 
word include , and then a filename enclosed in single or double quota- 
tion marks. The filename may be followed by a semicolon. The filenames of 
included files must end in An example of the use of included files in a main 
program is 
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When the include pseudo-statement is encountered in the input, the lines 
from the included file are inserted into the input stream. For the purposes of 
translation and run-time diagnostics and statement numbers in the listings and 
post-mortem tracebacks, the lines in the included file are numbered starting from 
1. Nested includes may be up to 10 levels deep. 

See the description of the -i option of pi in the "Options Common to pi, 
pc, and pix" section found in this chapter; this can be used to control listing 
when include files are present. 

When a nontrivial line is encountered in the source text after an include 
finishes, the ‘popped’ filename is printed, in the same manner as above. 

For the purposes of error diagnostics when not making a listing, the filename is 
printed before each diagnostic if the current filename has changed since the last 
one was printed. 

4.10. Separate Compilation 
with pc 



Normally, pc expects to be given entire Pascal programs. However, if you give 
the — c option on the command line, pc accept a sequence of definitions and 
declarations, and compiles them into a . o file that can be linked with a Pascal 
program at a later time. In order to have procedures and functions available 
across separately compiled files, they must be declared with the 
external directive. This directive is similar to the directive forward in that 
it must precede the resolution of the function or procedure, and formal parame- 
ters and function result types must be specified in the external declaration 
but may not be specified in the resolution. 

Type checking is performed across separately compiled files during loading. 
Since Pascal type definitions define unique types, any types ±at are shared 
between separately compiled files must have the same definitions. 

This problem is solved using a facility similar to the include facility dis- 
cussed above. Definitions can be placed in files having the extension . h and the 
files included by separately-compiled files. Each definition from a . h file 
defines a unique type, and all uses of a definition from the same . h file define 



A separate compilation facility is provided m pc . This facility allows programs 
to be divided into a number of files that are compiled individually and linked 
together later. This is especially useful for large programs, where small changes 
would otherwise require time-consuming recompilation of the entire program. 
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the same type. 

Similarly, the facility is extended to allow the definition of consts and the 
declaration of labels, vars, and external functions and pro- 
cedures. Thus procedures and functions that are used in the separately com- 
piled files must be declared external , and must be so declared in a .hfile 
included by any file that calls or resolves the function or procedure. Conversely, 
functions and procedures declared external can only be so declared in . h 
files. These files can only be included at the outermost level and define or 
declare global objects. Note that since only external function and 
procedure declarations (and not resolutions) are allowed in . h files, stati- 
cally nested functions and procedures can’t be declared ext ernal. 



An example of the use of included . h files in a program is: 





A 


program compiler (input, output, obj) ; 




tinclude "globals. h" 




#include "scanner . h” 




tinclude "parser . h" 




#include "semantics -h” 




begin 




{ main program } 




end. 






J 



The main program might include the definitions and declarations of all the global 
labels, consts, types, and vars from the file globals . h, and the 
external function and procedure declarations for each of the 
separately compiled files for the scanner, parser, and semantics. The header file 
scanner . h would contain declarations of die form: 




Then the scanner might be in a separately compiled file containing 
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which includes the same global definitions and declarations and resolves the 
scanner functions and procedures declared external in the file scanner , h. 
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Pascal Routines From Other Languages 



This chapter describes the Pascal calling sequence used when other languages 
call Pascal routines. The following topics are discussed: 

• Argument list layout 

• Value parameters 

• Conformant array parameters 

• Procedures and functions as parameters 

5.1. Argument List Layout The argument list consists of up to four separate sections on the run-time stack, 

in the following order; 

1. Storage for declared arguments. These are either values or pointers to 
values, and in any case, correspond directly to explicitly declared formal 
parameters in the Pascal procedure or function declaration. 

2. Storage for auxiliary arguments associated with conformant array parame- 
ters. 

3. Storage for auxiliary arguments associated with procedures or functions 
passed as parameters. 

4. Storage for an auxiliary argument required if the called routine is declared 
within another procedure. This can only arise in C or FORTRAN if a nested 
Pascal procedure is passed as an argument. 

The parameter list is organized like this primarily in order to make it easy to call 
other languages from Pascal. In general, auxiliary items for Pascal-specific 
requirements (such as range checking and static scoping) have been moved out- 
side the "primary" argument list. 

In C notation, the calling sequence observed by pc is described as follows: 
declared procedures and scalar-valued functions: 

p ( . . . args . . . [ , capbounds] [ , pf slinks] [ , slink] ) 
structure-valued functions: 

(temp = p ( . . . args . . . [ , cap bounds ] [ , pf 
slinks] [, slink] ) , Stemp) 



#sun 
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5.2. Value Parameters 



Type shortreal 



formal procedures and scalar- valued functions: 

(*p) ( . . . args . . . [, capbounds] [ ,pf slinks] , slink) 
formal structure-valued functions: 

(temp = 

(*p) ( . . .args . . . [, capbounds] [ ,pfslinks] , slink) , 
stemp) 

where: 

capbounds are bounds pairs for conformant array parameters 
pf slinks are static links for procedure/function parameters 
slink is the static link of the called procedure/function 
temp is storage allocated by the caller for the result of a stmcture- 
valued function 

In general, Pascal expects all value parameters except conformant array parame- 
ters to be passed directly on the stack, widening to a full word representation if 
necessary. From C, there are two places where this causes trouble: scalars of 
type shortreal, and arrays of any fixed type. 

Parameters of type shortreal are assumed to have been passed in single pre- 
cision; note that this ditfers firom C, which always converts float arguments 
to double before pushing them on the stack. 

If a Pascal procedure with a shortreal value parameter must be called from 
C, use the following device: 

For the caller (C), use: 

\ 

extern fooO; /* procedure foo (x: shortreal) ; */ 

union { 

int intval; 
float fval; 

} u; 

u.fval = <expression of type ' float' > 
foo (u. intval) ; 

^ ^ 



For the callee (Pascal), use: 






procedure foo(x: shortreal); 
begin 




end; 




^ 


__ ^ 
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Fixed Array Types 



Value Conformant Array 
Parameters 



C does not pass arrays by value, but does pass structures by value. An array can 
be passed by value to Pascal by enclosing the array declaration in a dummy 
stracture. For example, consider the following Pascal routine: 



r 


procedure foo(name: alfa); 
begin 






... do something with name . . . 






end; 




V 







where alf a is defined by 



alfa = packed array[1..10] of char; 

V > 



The routine f oo may be called by using the auxiliary declaration 


typedef struct { 
char cbuf[10]; 

} alfa; 

alfa digits; 

strncpy (digits, ”0123456789”, sizeof (digits) ) ; 
f oo (digits) ; 

V > 



Since this interface is neither efficient nor general, it should be avoided whenever 
possible. A more general interface is described in the next section. 

Value conformant array parameters are handled by creating a copy in the caller’s 
environment and passing a pointer to the copy. In addition, the bounds of the 
array must be passed (this is described in "Argument List Layout" found earlier 
in this appendix). For example: 

The caller (C): 



extern fooO; 

char a[] = "this is a string”; 
foo(a, 0, sizeof (a) -1) ; 

J 



The callee (Pascal): 

— — ^ . 

procedure foo(s: packed array [ lb . .ub : integer] of char) ; 
begin 

end; 

s ^ 
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From FORTRAN: 

FORTRAN passes all arguments by reference. Thus, from FORTRAN it is impossi- 
ble to call a Pascal routine that expects value parameters. 

5.3. Conformant Array A conformant array parameter must include bounds and possibly element widths 

Parameters as arguments. These go immediately after the declared argument list. An ele- 

ment width is included for all except the last dimension of a multidimensional 
array. 

Note that since the bounds are passed by value, Pascal routines with conformant 
array parameters cannot be called from FORTRAN. 

If the called routine knows the element width at compile time, the pair 

(low bound, high bound; integer) 

V j 



is passed. For C, the low bound is always 0. 

If the called routine does not know the element width at compile time, (i.e., for 
all dimensions but the last dimension of a multidimensional conformant array) a 
triple 

(low bound, high bound, element width: integer) 

< > 



must be passed. The element width is computed as 
(ub - lb + 1) * w 

V ) 



where (lb, ub, w) are the bounds and element width of the next lower dimen- 
sion of the array. Note that this definition is recursive. 

Finally, note that bounds information may be shared by several conformant array 
parameters; this is a consequence of their declaration structure. For example, 
only one bounds pair is passed for the declaration 

r >1 

function innerproduct ( 

var x,y: array [ lb. .ub: integer] of real): real; 
external; 

< > 



This could be used from C as follows: 
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5.4. Procedures and A procedure or function passed as an argument is associated with a static link to 

Functions as Parameters its lexical parent’s activation record. When an outer block procedure or function 

is passed as an argument, Pascal passes a null pointer in the position normally 
occupied by the passed routine’s static link. So that procedures and functions 
can be passed to other languages as arguments, the static links for all procedure 
or function arguments are placed after the end of the conformant array bounds 
pairs (if any). 

Routines in other languages may be passed to Pascal; a dummy argument must 
be passed in the position normally occupied by the passed routine’s static link. If 
the passed routine is not a Pascal routine, the argument is used only as a place 
holder. 
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The Pascal — C Interface 



This chapter gives information for constructing interfaces between Pascal and C 
routines. It contains information that is necessary for calling existing C library 
routines from Pascal, as well as for writing Pascal-callable routines in C. How- 
ever, it is not intended to serve as a tutorial on either subject. Familiarity with 
both C and Pascal is assumed. 

6.1, Order of Declaration of The order that arguments are declared is the same in Pascal and C. Certain forms 

Arguments of arguments in Pascal (i.e., procedures, functions, and conformant arrays) cause 

the compiler to pass additional information after the declared argument list; how- 
ever, in most cases, external C routines need not be aware of this additional 
information. See Chapter 5 for further details. 

6.2. Value Parameters vs. 

Reference Parameters 



In C, all parameters except arrays are passed by value. Pascal var (reference) 
parameters are handled in C by declaring the formal parameter to be a pointer 
type. Thus the following Pascal declaration: 





procedure incr (var n: integer); 
external c; 


N 


^ 




J 



corresponds to the C function 

incr (n) 

int *n; 

( 

*n += 1; 

} 

V J 



Pascal allows structured types (records, arrays, and sets) to be passed by value. 
In C, this is true only of structures and unions. If an array of fixed type is to be 
passed by value to C, the called routine should declare the formal parameter as a 
stmcture. For example: 
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The caller (Pascal): 




The callee (C): 




This type of interface should be avoided if possible, since it is neither general nor 
efficient. 

6.3. Conformant Array 
Parameters 



Pascal passes the bounds of die array at the end of the argument list; C routines 
can choose to ignore the bounds if some other convention is followed (e.g. an 
explicit length parameter or a terminating value). For example: 

The caller (Pascal): 




The conformant array parameter feature of ISO Standard Pascal provides a means 
of passing arrays of different dimensions to a single routine. For a general 
description of this feature, see Cooper[l]. Conformant array parameters can be 
passed to C programs; the argument seen by a C program is a pointer to the array. 
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The callee (C): 




Conformant array parameters can be passed by value; if this is done, a copy of 
the array is made in the caller’s environment and the address of the copy is 
placed in the argument list. This property is useful for dealing with character 
strings (see "Character String Types" later in this chapter for further details). 

6.4. Procedures and Pascal procedures and functions can be passed as parameters to external C rou- 

Functions as Parameters tines. The argument seen by C is a pointer to the text of the passed routine. For 

example: 

The caller (Pascal): 
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The callee (C): 




The Pascal compiler appends an extra argument to the argument list, which is 
significant if the actual procedure is nested; consequently, nested Pascal routines 
should not be passed as parameters to C or FORTRAN. The compiler issues a 
warning if this is attempted. 

6.5. Compatible Types in Sizes and alignments of types common to both Pascal and C are listed in the 

Pascal and C table below: 



Pascal type 


C type 


Size 


Alignment’ 


shortreal 


float 


4 bytes 


2 bytes 


real 


double 


8 bytes 


2 bytes 


longreal 


double 


8 bytes 


2 bytes 


integer 


int 


4 bytes 


2 bytes 


-3276S..32767 


short 


2 bytes 


2 bytes 


-128.. 127 


char 


1 byte 


1 byte 


boolean 


char 


1 byte 


1 byte 


char 


char 


1 byte 


1 byte 


record 


stmct/union 


2 bytes 


2 bytes 


array 


array 


2 bytes 


2 bytes 



Alignments on a Sun-3 are on 4-byte boundaries for types with sizes of 4 bytes or 
larger. 

In most cases, C arrays and stractures describe the same objects as their Pascal 
equivalents, provided that the components have compatible types and are 
declared in the same order. Exceptions are noted in the next section. 

6.6. Incompatible Types in This section describes types that differ between Pascal and C. In some cases, the 

Pascal and C differences are minor; in others, a type has no equivalent in the other language, 

and can be reproduced only with difficulty. 
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C Bit Fields 



Enumerated Types 



Character String Types 



The Pascal compiler ignores the word ‘packed’, so the minimum field width is 1 
byte. Consequently, C bit fields have no equivalent in Pascal, and should be 
avoided in stmctures shared by C and Pascal code. 

In Pascal, enumerated types are represented internally by sequences of integral 
values starting with 0. Storage is allocated for a variable of an enumerated type 
as if the type were a subrange of integer. For example, an enumerated type of 
fewer than 128 elements is treated as 0..127, which according to the rules above, 
is equivalent to a char in C. 

In C, enumerated types are allocated a full word and can take on arbitrary integer 
values. 

In Pascal, strings are values of character array type. String assignments and com- 
parisons involving string constants imply blank-padding of the constant to the 
length of the longer operand. C does not support string assignments, except 
through library functions (see string). By convention, strings in C end with a 
null byte. 

C routines with character string parameters expect a string to be passed by 
address and be terminated by a null byte. To meet these requirements, the formal 
parameter should be declared in Pascal as a value conformant array of 
char. Note that null termination is only guaranteed when the actual parameter 
is a string constant, and that this guarantee is not requited by the ISO Pascal 
Standard. 

As an example, the following Pascal program lists the files in the current direc- 
tory by using the C library routine system (3), which executes a string as a shell 
command; 

f V 

program usesystem; 

procedure system ( 

cmd: packed array [lb . .ub : integer] of char); 
external c; 
begin 

system (' /bin/ls -IM ; 

end. 

< > 



Some common constructs in C rely on the fact that strings in C denote static vari- 
able storage; the user is cautioned to avoid such idioms in Pascal, especially 
when calling C library routines. For example, you could use mktemp (3) in Pas- 
cal as follows: 



r 






tmp := mktemp (' /tmp/f oo . xxxxxxxx' ) ; 


{WRONG} 








J 



This is incorrect, since mktemp () modifies its argument. A correct solution is 
to use the C library routine strncpy ( ) (see string) to copy the string constant 
to a declared char array variable: 
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Pascal Set Types 



f N 

procedure strncpy( 

var dest : packed array [11 . .ul : integer] of char; 
srce: packed array [12 . .u2 : integer] of char; 
length: integer); 
external c; 

procedure mkteinp( 

var dest: packed array [lb . .ub : integer] of char) ; 
external c; 

var pathname: packed array[1..40] of char; 

strncpy (pathname^ ' /tmp/foo.xxxxxxxx' ^ sizeof (pathname) ) ; 
mktemp (pathname) ; 

V > 



In Pascal, a set is implemented as a bit vector, which may be thought of as a C 
byte array. Direct access to individual elements of a set is highly machine- 
dependent and should be avoided. Note that the implementation may change in a 
future release. 

In the Sun implementation, bits are numbered within a byte from least significant 
to most significant. For example, the bits in a variable of type set of 0 . . 3 1 
would be ordered: 



set+O: 


7, 6, 5,4,3, 2, 1,0 


set+1; 


15,14,13,12,11,10, 9,8 


set+2: 


23,22,21,20,19,18,17,16 


set+3; 


31,30,29,28,27,26,25,24 



In C, a set could be described as a byte array beginning at an even address. The 
nth element in a set | [ lower . . . upper ] can be tested as follows: 

^ 

#define BITMASK 07 

#define BITNUMSIZE 03 
register indx; 

upper -= lower; /* normalize upper bound */ 
if ((indx = n - lower) < 0 | I indx > upper) [ 

/* n is outside the range [lower .. upper] */ 

} 

if (setptr[indx » BITNUMSIZE] & (1 « (indx & BITMASK))) { 

/* n is in [lower. .upper] */ 

} 

/* n is not in [lower. .upper] */ 

< y 
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Pascal Variant Records 



C equivalents of variant records can usually be constructed by the following 
somewhat awkward correspondence: 



Pascal : 

record 

<fixed part fields> 
case <tag field> of 

<tag value list(l)>: ( <variant field list(l)> ); 
<tag value list(n)>: ( <variant field list (n) > ); 

end; 



struct { 

<fixed part fields> 

<tag field> 
union { 

struct { <variant field list(l)> } <name(l)>; 

struct { <variant field list (2) > } <name(n)>; 

} <name>; 

}; 

k / 



The correspondence fails if the variant part begins at an odd address, which 
occurs if none of the variants requires word alignment. The problem is that in C, 
each variant must be represented by a nested structure, which always begins at an 
even address. In Pascal this restriction is not observed because a variant does not 
begin a new record. For example: 



r 


N 


var X : record 




case tag: char of 




'a': (chl^ ch2 : char) ; 




'b' : (flag: boolean) ; 




end; 




s 


J 



does not correspond to a C structure, since the substructure of the ‘a’ variant is 
not word-aligned. However, one can force the variant part of this record to be 
aligned by adding another variant, for example. 







var X : record 




case tag: char of 




'a': (chi, ch2 : char); 




'b' : (flag: boolean); 




'K' : (ALIGN: integer) ; 




end; 




k - — _ 


j 
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The corresponding C structure is then 



struct { 

char tag; 
union { 

struct { 

char chi, ch2; 

}a_var; 
struct { 

char flag; 

}b_var; 
struct { 

int ALIGN; 

}c_var; 

} var_j>art; 

} x; 

^ ) 
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The Pascal — FORTRAN Interface 



This chapter describes the interface for calling FORTRAN from Pascal. It 
describes parameter passing conventions, and the mapping between types in FOR- 
TRAN and their equivalents in Pascal. 

7.1. Order of Declaration of The order of declaration of arguments is the same in Pascal and FORTRAN. 
Arguments 

7.2. Value Parameters vs. In FORTRAN, all parameters are passed by reference, including constants and 

Reference Parameters function results. In general, all constants and temporary values are handled by 

creating a copy in the caller’s enviromnent and passing the copy by reference. 
The Pascal compiler follows this convention for routines declared with the 
external fortran directive. For example: 



The caller (Pascal): 




The callee (FORTRAN): 




13 . Conformant Array External FORTRAN routines can be declared to accept one-dimensional arrays of 

Parameters different sizes by using conformant array parameters. The calling sequence 

passes the array bounds at the end of the argument list. Unfortunately, the 
bounds are not accessible from FORTRAN. In general, the caller must supply an 
explicit length parameter. For example. 
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The caller (Pascal): 

s 

function innerproduct ( 

var x,y: array [lb. .ub:integer] of real; 
nelements: integer) : real; 
external fortran; 





The callee (FORTRAN): 




Multidimensional arrays can cause problems if passed from Pascal to FORTRAN; 

see the section on "Multidimensional Arrays" later in this chapter for details. 

7.4. Procedures and Pascal procedures and functions can be passed as parameters to external FOR- 

Functions as Parameters TRAN routines, subject to the following restrictions: 

• All formal parameters of the passed routine must be var parameters since 
the source language of a compiled routine is not recorded in its mn time 
representation. 

• The actual routine passed must be declared at the outer block level. 

• All formal parameters of the passed routine must have types with compatible 
equivalents in FORTRAN. 

The argument that FORTRAN sees should be declared with an external state- 
ment. For example: 

The caller(Pascal): 



r 




function apply ( 




function f (var xx:real): real; 




var x: real) : real; 




external fortran; 




V 





The callee (FORTRAN): 



r 




double precision function apply (f,x) 




external f 




double precision f,x 




apply = f (x) 




return 




end 




V 


J 
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7.5. Compatible Types in Size and alignments of types common to both Pascal and FORTRAN are listed in 

Pascal and FORTRAN the table below: 



Pascal type 


FORTRAN Type 


Size 


Alignment 


shortreal 


REAL 


4 bytes 


2 bytes 


real 


DOUBLE PRECISION 


8 bytes 


2 bytes 


longreal 


DOUBLE PRECISION 


8 bytes 


2 bytes 


integer 


INTEGER* 4 


4 bytes 


2 bytes 


-32768..32767 


INTEGER* 2 


2 bytes 


2 bytes 


-128..127 


CHARACTER 


1 byte 


1 byte 


boolean 


CHARACTER 


1 byte 


1 byte 


char 


CHARACTER 


1 byte 


1 byte 


array 


array (*) 


— 


2 bytes 



(*) Only one-dimensional arrays are compatible in Pascal and FORTRAN. 

Types with sizes of 4 bytes or larger are aligned on 4-byte boundaries on a Sun-3. 

7.6. Incompatible Types in 
Pascal and FORTRAN 



Pascal Boolean vs. FORTRAN In Sun Pascal, Booleans are allocated a single byte, and may reside at odd byte 
logical addresses. In FORTRAN, logical is defined to be the same size as the default 

size of integer, which may be 2 or 4 bytes, but is never a single byte and is 
always word-aligned. 

FORTRAN logical parameters should be declared at the calling site as 
integers. Boolean values can be passed using the standard function ord. For 
example: 

The caller (Pascal): 



(WRONG): 




procedure foo(flag: boolean); 
external fortran; 


{ERROR} 




< 


foo (n>0) ; 







(RIGHT): 


f 


procedure foo (flag: integer); 
external fortran; 




V 


foo (ord (n>0) ) ; 


J 



The callee (FORTRAN): 
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Multidimensional Arrays Multidimensional arrays are not compatible in Pascal and FORTRAN. Since Pas- 

cal arrays use row-major indexing and FORTRAN arrays use column-major index- 
ing, an array passed in either direction between Pascal and FORTRAN appears to 
be transposed. For example: 



The caller (Pascal): 
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The callee (FORTRAN): 
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Sun Extensions to Berkeley Pascal 



Sun Microsystems has made many extensions to Berkeley Pascal. These are 
exclusively language extensions (as opposed to new tools such as dbx). In addi- 
tion, this chapter discusses the differences between the ISO standard and Sun 
Pascal. 



8.1. Language Extensions 
Supported by both pc and 

pi 

The syntax of Pascal identifiers is extended to allow underscores in all char- 

acter positions except the first. This improves readability of long identifiers, and 
for pc, allows access to more routines of the Sun libraries than do earlier ver- 
sions. 

Level 1 ISO standard Pascal requires that conformant array parameters be sup- 
ported. This feature allows a procedure or function to accept arrays with a com- 
mon element type, but with different bounds. Note that conformant arrays are 
not truly dynamic — that is, their bounds cannot be altered. They merely pro- 
vide a mechanism for including subscript bounds information when an array is 
passed as a formal parameter. For example, the following function computes the 
real inner product of two real vectors x and y. x and y must have the same dimen- 
sion. 



function innerproduct (var x,y: array [lb..ub: integer] of real): real; 
var sum: real; 

n : integer; 
begin 

sum : = 0.0; 

for n := lb to ub do 

sum := sum + x[n]*y[n]; 
innerproduct := sum; 
end; 

y 



Conformant Array 
Parameters 



Underscores Allowed In 
Identifiers 
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Syntax 

<conformant~array-parameter-’specif ication> 

: <value~conf ormant-array-parameter-specif ication> 

: := <variable-conformant-array“parameter-specif ication> 

<value-conformant“array-parameter-specif ication> 

: := <identif ier-list> <conformant-array-schema> 

<variable-conformant~array-parameter“specif ication> 

: ”var” <identif ier-list> <conf ormant-array-schema> 

<conformant“array“Schema> 

: := <packed conf ormant-array-schema> 

: := <unpacked conformant“array-schema> 

<packed conf ormant“array“Schema> 

::= "packed” "array” ”[” <index-type-specif ication> ”]” 

”of” <type-identif ier> 

<unpacked conforxnant-array-schema> 

: "array” ”[” <index-type-specif ication> ”]" 

"of” <array-element-type> 

<array e lament -type> 

: := <type-identif ier> 

: := <conformant-array-schema> 

<index-type-*specif ication> 

: <bound“identif ier> <bound“identif ier> 

” : ” <type-identif ier> 

< / 



A formal conformant array parameter includes read-only bound identifiers as part 
of its definition. The bound identifiers provide the lower and upper limits of the 
conformant array parameter’s index type. The actual array associated with a con- 
formant array parameter must have the same element type as the conformant 
array, as well as a compatible index type. When an actual array is passed as a 
conformant array parameter, its bounds become the bounds of the conformant 
array parameter. If the formal parameter is a value conformant array parameter, 
a copy of the actual array is made in the caller’s environment and the address of 
the copy is passed. 

A detailed description of conformant array parameters is given in Cooper[l]. 

otherwise clause in case Case statements may specify a default action or "otherwise clause", according to 

statement the following syntax: 
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sizeof operator 




Note that the reserved word otherwise is not a case label, so it is not fol- 
lowed by a If specified, it must be at the end of the case statement. For 
example. 



program silly (input, output ) ; 

var chrchar; 

begin 

read(ch) ; 
case ch of 

'O', '1', '2', '3', 'A', '5', '6', '1' , 'O', 
writeln ('digit' ) ; 
otherwise 

writeln ('not a digit') 

end 

end. 



The default action (i.e. the statement immediately following the reserved word 
otherwise) is executed if the case selector does not match any of the specified 
case label values. Without the otherwise clause, this situation would result 
in a mn-time error and termination of the program. 

The sizeof operator returns the size of a specified type or variable. If you 
wish to compute the size of a variant record type, an optional list of variant tag 
values can be used to specify a particular variant of the given record type, similar 
to the standard procedures new and dispose. For example. 



sun 
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program showsize (output); 
type thing = record 
case boolean of 
true: (n: integer); 

false: (x: real) 

end; 

var t: thing; 




begin 

writeln (sizeof (t) ) ; 
writeln (sizeof (thing) ) ; 
writeln (sizeof (thing, true) ) ; 
end. 

L 


.... _.J 



The syntax of sizeof () is 

f 

"sizeof” ”(" <size_expr_list> ”)” 

where 

<size__expr_list> : := <size_expr> { 

<constant expression> } 

<size_expr> : := <type identifier> | <variable> 

V 



si-zeof. ( ) returns the size, in bytes, of a declared type or a (possibly qualified) 
variable. If an optional list of constant expressions is supplied, the <type 
identifier> or <variable> must denote a variant record type or an instance of one; 
the value returned is the size of the variant selected by the list of constant expres- 
sions (e.g. the standard procedures new and dispose). 

sizeof 0 is a compile-time function and does not cause code to be generation 
other than for the constant value it returns. Since the size of a conformant array 
parameter is not known until runtime, s i zeof ( conformant array parameter) is 
treated as an error. For the one-dimensional conformant array parameter, 




Apply the above formula recursively to compute the size of multidimensional 
arrays. 
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Correct handling of 
multidimensional array 
declarations 



8.2. Language extensions 
supported only by pc 



Note; sizeof is now a reserved word, unless the -s option (compile only stan- 
dard Pascal) is in effect 

As specified by the ISO standard, arrays of arrays and multidimensional arrays 
are treated the same. For example. 




are treated as equivalent, as are a [ i ] [ j ] and a [ i , j ] . In the 4.2BSD ver- 
sions of pc and pi substitution of one for the other was considered an error. 



shortreal and longreal Example: 
types (pc only) 



Description: 

pc now supports both single- and double-precision floating point types, which are 
denoted by the names shortreal and longreal, respectively. The stan- 
dard type real denotes double-precision floating-point, as in earlier versions of 
Sun Pascal. Note that real can be redeclared as either longreal or 
shortreal, if desired. 

The mles for arithmetic conversions are changed to permit computations involv- 
ing single-precision operands to be done in single precision. The new rules are 

• The operators +, -, * 

Let op denote a binary arithmetic operator in the set {+,-,*}. Let xl and 
X 2 denote the operands of op. Let tl and 1 2 denote the types of xl 
and X 2, respectively. The type of (xl op x 2) is determined by applying 
the following mles in the order listed: 

1. If tl and t2 are both subranges of -128..127, the type of the result is 
-32768..32767. 

2. If 1 1 and t2 are both subranges of integer, then the type of the 
result is integer. 

3. If tlor t2 is longreal, then the type of the result is longreal. 
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4. If tl and t2 are either sho rt real or subranges of -32768..32767 
(i.e., representable exactly in 16 bits), then the type of the result is 
shortreal. 

5. Otherwise, the type of the result is longreal. 

• The integral dividing operators div, mod: 

If the operator is one of {div, mod}, then the operands are restricted to 
integral types, and the type of the result is integer. 

• The operator /: 

If the conversions described above for * return an integral type, then 
both operands are converted to longreal, and that is the type of the 
result. 

Note: These rules differ from those of C, which automatically forces conversion 
to double precision for all floating-point arithmetic operations, as well as for 
floating-point function arguments. 



External FORTRAN and C The external directive for procedure and function declarations is extended to 

Declarations {pc only) allow the optional specification of the source language of a separately compiled 

procedure or function. 

/ s 

<procedure declaration> 

: := <procedure or function heading> <directive> 

<directive> 

: := "forward" 

: := "external" [<identifier>] 

V 



Where either fortran or c may be substituted for <identif ier>. 

The directives external fortran and external c, direct pc to gen- 
erate calling sequences compatible with Sun’s FORTRAN 77 and C, respec- 
tively. 

For routines declared external fortran, the changes in the calling 
sequence are as follows: 

• For value parameters, the compiler creates a copy of the actual argument’s 
value in the caller’s environment, and a pointer to the temporary is passed on 
the stack. Thus, you don’t need to create (otherwise useless) temporary vari- 
ables. 

• The compiler appends an underscore to the name of the external procedure 
to conform to a naming convention of the /77 compiler. Note that names of 
Pascal procedures called from FORTRAN must supply their own trailing 
{"_"). This may be done using a #def ine preprocessor declaration to 
minimize impact on the rest of the program. 

Note: Multidimensional Pascal arrays are not compatible with FORTRAN 
arrays. Since FORTRAN uses column-major ordering, a multidimensional 
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Pascal array passed to FORTRAN will appear to be transposed. 

For routines declared external c, the only changes in the calling sequence is 
that value parameters of type shortreal are treated as longreal. 



Bit Operations on Integral 
Types 



Preprocessor facilities (pc 
only) 



Version identification 







X 


:= land(y,z); 


{ bitwise AND 


} 


X 


:= lor (y, z) ; 


{ inclusive OR 


} 


X 


:= xor (y, z) ; 


{ exclusive OR 


} 


X 


:= Inot (y) ; 


{ bitwise NOT 


) 


X 


:= lsl(y,z) / 


{ logical shift left } 


X 


:= lsr(y,z) ; 


{ logical shift right } 


X 


:= asl (y, z) ; 


{ arithmetic shift 


left } 


X 


:= asr (y, z) ; 


{ arithmetic shift 


right } 



V J 



These predefined functions provide access to the same bit operations provided by 
C. Each takes one or two arguments of integral type and returns a result whose 
type is the larger of the two operand types. The result is computed in-line, pro- 
ducing faster and smaller code than an equivalent external function call. 

Preprocessor facilities (e.g., conditional compilation, macros) can be used as in C 
(see cpp). Comments containing a ‘#’ in column 1 are interpreted by the prepro- 
cessor. Also, Sun’s C language reserves the symbols sun, unix, and 
me 68 0 0 0, which are not reserved in Pascal. 



The version of pc used to compile a given object file can be identified by the fol- 
lowing command line: 











hostname% nm -ap <file> 

\ 


grep " PC " 


1 head 


> 



The first line containing the string "PC" indicates the version of the compiler 
used and the date of its generation, for example: 

N 

hostname% nm -ap foo.o | grep " PC " | head 
00000000 - 00 OOOd PC 3.4 (10/4/84) 

00000001 - 00 0001 PC foo.p 



The following section describes the differences between the ISO Pascal standard 
and Sun Pascal. 

• Operands of binary set operators {*,+,-} are required to have identical types. 
The standard permits different types as long as the base types are compati- 
ble. 

• According to the standard, the expression [maxint . . . -maxint ] 
should be equivalent to [ ]. pc and pi both refuse to evaluate sets with 
elements larger than indicated by the definition of type int set 
(predefined as set of 0...127|). 




8.3. Differences from the ISO 
Pascal Standard 
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• Sun Pascal treats files declared as ‘file of char’ the same as files 
declared as ‘text.’ In ISO Pascal the two types are distinct 



• The value of m mod n is not computed correctly for negative values of m. 
According to the standard, the divisor must be positive and the result must 
be negative. The correct result can be obtained by: 
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Pascal Language Reference Summary 



This appendix is a language reference summaiy for Berkeley Pascal with Sun 
extensions. BNF notation is used throughout. 



A.l. Programs 


r 


A 

< program > ::= < program heading > < declaration list > < block > . 

1 < declaration list > 






< program heading > program < identifier > ( < identifier list > ) ; 

1 program < identifier > ; 




k 


< block> begin < statement list> end 

y 



A.2. Declarations 



Label Declarations 



< declaration list > ::= < declaration list > < declaration > 

1 < empty > 

< declaration >::==< label declaration > 

I < constant declaration > 

I < type declaration > 

I < variable declaration > 

I < procedure declaration > 

I < function declaration > 



\ y 


f 


< label declaration > label < label list > ; 




V 




y 






< label list > :;= < label > 

1 < label list > , < label > 




^ 




J 




r 


< label > ::= < unsigned integer > 


A 

y 
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Constant Declarations 



Type Declarations 



Variable Declarations 



Procedure And Function 
Declarations 



< constant declaration > const < identifier > = < constant > ; 
I < constant declaration > < identifier > = < constant > ; 



< type declaration > ::= type < identifier > = < type > ; 

I < type declaration > < identifier > = < type > ; 



< > 
< variable declaration > ::= var < identifier list > : < type > ; 

I < variable declaration > < identifier list > : < type > ; 




< procedure declaration > ::= < procedure heading > forward ; 

I < procedure heading > external < identifier > ; 

1 < procedure heading > ext er nal ; 

I < procedure heading > < declaration list > < block > ; 

< function declaration > <function heading > forward ; 

1 < function heading > external < identifier > ; 

I < function heading > external ; 

I < function heading > < declaration list > < block > ; 

< procedure heading > ::= procedure < identifier > < parameters > ; 

< function heading > function < identifier > < parameters > : 

< type identifier > ; 

< parameters > ;:= ( < parameter list > ) 

I < empty > 



Formal Parameter 
Declarations 



< parameter list > ::= < parameter > 

I < parameter list > ; < parameter > 



< parameter > ::= < identifier list > : < parameter type > 

1 var < identifier list > : < parameter type > 

I f unct ion < identifier > < parameters > : < type identifier > 
I procedure < identifier > < parameters > 



msun 
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< — — V 

< parameter type > ::= < type identifier > 

\ < conformant array schema > 

I < packed conformant array schema > 

< conformant array schema >::= dirreiy [ < index type list > ] of 

< parameter type > 

<packed conformant array schema> ::= packed array 
[ < index type > ] 
of < type identifier > 

< index type list > ::= < index type > 

I < index type list > ; < index type > 

< index type > ::= < identifier > . . < identifier > : < type identifier > 

V j 



A.3. Constants 





< constant > ::= < character string > 

I < constant identifier > 

I < number > 

I + < number > 

I - < number > 

< number > ::= < unsigned integer > 

1 < octal constant > 

I < unsigned real constant > 

< constant list > ::= < constant > 

I < constant list > , < constant > 

V > 



A.4. Types 



< type > ::= < simple type > 

\ " < type identifier > 

I < structured type > 

I packed < structured type > 





< simple type > ::= < type identifier > 


\ 




1 ( < identifier list > ) 






1 < constant > . . < constant > 








j 



® sun 

Xr microsystems 








96 



/ > 

< Structured type > array [ < simple type list > ] of < type > 

I fileof<ty/7^> 

I set of < simple type > 

I record < field list > end 

< simple type list > ::= < simple type > 

I < simple type list > , < simple type > 

< > 



A.5. Record Types 



< field list> ::= < fixed part> < variant part> 

< fixed part > < field > 

I < fixed part > / < field > 



< field > ::= < empty > 

I < identifier list > : <type> 



< variant part > ::= < empty > 

1 case < type identifier > of < variant list> 

I case < identifier > : <type identifier > of < variant list> 

< variant list > ::= < variant > 

I < variant list > ; < variant > 



< variant > ::= < empty > 

I < constant list > : ( < field list > ) 



A.6. Statements 



r 


< statement > ::= < empty > 




1 


< unsigned integer > : < statement > 




1 


< procedure identifier > 




1 


< procedure identifier > ( < actual parameter list > ) 




1 


< assignment > 




1 


begin < statement list > end 




1 


case < expression > of < case statement list > end 




1 


with < variable list> do < statement > 




1 


while < expression > do < statement > 




1 


repeat < statement list> until < expression > 




1 


f or < assignment > t o < expression > do < statement > 




1 


for < assignment > downto < expression > do < statement > 




1 


goto < label > 




1 


if < expression > then < statement > 




1 


if < expression > hen < statement > else < statement > 
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< assignment > ::= < variable > : = < expression > 


\ 




< statement list > : := < statement > 

1 < statement list > ; < statement > 






< case statement list> ::= < case list element > 

1 < case statement list > ; < case list element > 




V 







< case list element > : := < constant list > : < statement > 

I otherwise < statement > 

I < empty > 

\ ^ 



A.7. Expressions 



< expression > ::= < simple expression > 

I < expression > < relational operator > < simple expression > 

< simple expression > ::= < signed term > 

I < simple expression > < adding operator > < signed term > 

< signed term > ;:= < term > 

I + < signed term > 

I - < signed term > 

< term > ::= < factor > 

\ < term > < multiplying operator > < factor > 





< factor > ::= nil 

I < character string > 

I < unsigned integer > 

I < octal constant > 

I < unsigned real constant > 

I < variable > 

I < function identifier > ( < actual parameter list > ) 

I ( < expression > ) 

I not < factor > 

I [ <set element list > 

I [ ] 

1 izeof < sizeof argument list > ) 

< 





< sizeof argument list > ::= < sizeof argument > 

\ < sizeof argument list > , < expression > 

) 



Asun 

microsystems 









98 



f 


< sizeof argument > < type identifier > 

1 < variable > 


N 




< set element list > ::= < set element > 

1 < set element list > , < set element > 






< set element > ::= < expression > 

1 < expression > . . < expression > 


/ 



A.8. Variables 





< variable > ::= < identifier > 

I < qualified variable > 

V 



< qualified variable > < array identifier > [ < expression list> ] 

I < qualified variable > [ < expression list > ] 

I < record identifier > . < field identifier > 

I < qualified variable > . < field identifier > 

I < pointer identifier > 

I < qualified variable > " 



A.9. Actual Parameters 



< actual parameter > ::= < expression > 

I < expression > : < expression > 

I < expression > : < expression > : < expression > 

I < expression > < write base > 

1 < expression > : < expression > < write base > 

< expression list > ::= < expression > 

I < expression list > , < expression > 

< actual parameter list >::==< actual parameter > 

I < actual parameter list > , < actual parameter > 

< write base > ::= oct | hex 



A.IO. Operators 



— — ^ . 

< relational operator > = | < [ > | <> | <= | >= | in 

< adding operator > + |-| or | j 

< multiplying operator > ::= * I / I div | mod | and | & 

< / 
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A.11. Miscellaneous 


/ 


< variable list > < variable > 

1 < variable list > , < variable > 








< identifier list> ::= < identifier > 

\ < identifier list > , < identifier > 








< empty > 


/ 



A.12. Lexicon 



< constant identifier > ::= < identifier > 

< type identifier > ::= < identifier > 

< var identifier > ::= < identifier > 

< array identifier > ::= < identifier > 

< pointer identifier > ::= < identifier > 

< record identifier > ::= < identifier > 

< field identifier > ::= < identifier > 

< procedure identifier > ::= < identifier > 

< function identifier > < identifier > 

< identifier > : := < letter > { < letter > \ < digit > I } 

^ > 
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< letter > ;:= 
a 1 


b 


1 c 


|d|e|f|g|h|i 


1 j 1 k 


1 1 1 


m 1 


n 


1 O 


lplq|r|s|t|u 


1 V 1 w 


1 X 1 


Y 1 


z 


1 A 


|B|C|D|E|F|G 


1 H 1 I 


1 J 1 


K 1 


L 


1 M 


|N|0|P|Q|R|S 


1 T 1 U 


1 V 1 


W 1 


X 


1 Y 


1 z 




< digit > 


::= 0 


1 


1 1 


2|3|4|5|6|7| 


8 1 9 



< unsigned integer > ::= < digit > { < digit > } 

< signed integer > ::= < unsigned integer > 

I + < unsigned integer > 

I - < unsigned integer > 

< unsigned real constant > < unsigned integer > . < fractional part> 

I < unsigned integer > . <fractional part > e < scale factor > 

I < unsigned integer > . <fractional part > E < scale factor > 

I < unsigned integer > e < scale factor > 

1 < unsigned integer > E < scale factor > 

s > 





< fractional part> ::= < digit > { < digit > } 

k ^ ^ 



< scale factor > ::= < signed integer > 

< ^ 





< octal constant > ::= < octal digit > { < octal digit > } b 
I < octal digit > { < octal digit > } B 

V 



< octal digit >::=^0 |1|2|3|4|5|6|7 






< character string >::='< string element > { < string element > } ' 

< > 



/ 


< string element > < apostrophe image > \ 

< any character except apostrophe or newln > 




V 


< apostrophe image 


J 
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B 



Berkeley vs Standard Pascal 



The official Pascal standard is "Specification for the Computer Programming 
Language Pascal" (ISOdp7185)[2]. 

This appendix summarizes extensions to the language, discusses the ways in 
which the undefined specifications were resolved, gives limitations and restric- 
tions of the current implementation, and lists the predefined functions and pro- 
cedures available in the Berkeley implementation. Sun extensions to the 
language are listed in Chapter 8. 

B.l. Extensions to Pascal This section defines nonstandard language constructs available in Berkeley Pas- 

cal. The — s standard Pascal option of the translators pi and pc can be used to 
detect these extensions in programs that are to be transported. 

String Padding Berkeley Pascal pads with blanks constant strings found in expressions and as 

value parameters, making them as long as is required. The following is a legal 
Berkeley Pascal program: 




Octal Constants, Octal and Octal constants may be given as a sequence of octal digits followed by the char- 

Hexadecimal Write acter b or B. The forms 
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Assert Statement 



Enumerated Type 
Input/Output 

Structure-Returning 

Functions 

Separate Compilation 




cause the internal representation of expression a (which must be Boolean, char- 
acter, integer, pointer, or a user-defined enumerated type) to be written in octal or 
hexadecimal, respectively. 

An assert statement causes a Boolean expression to be evaluated each time 
the statement is executed. A mn-time error results if the expression ever evalu- 
ates to FALSE. The assert statement is treated as a comment if run-time 
tests are disabled. The syntax for assert is 



assert <expr> 



where expr is a Boolean expression. 

Enumerated types can be read and written. On output, the string name associated 
with the enumerated value is output. If the value is out of range, a mn-time error 
occurs. On input an identifier is read and looked up in a table of names associ- 
ated with the type of the variable, and the appropriate internal value is assigned 
to the variable being read. If the name is not found in the table, a run-time error 
occurs. 

An extension has been added that allows functions to return arbitraiy-sized stmc- 
tures, rather than just scalars as in the standard. 

The compiler pc has been extended to allow separate compilation of programs. 
Procedures and functions declared at the global level can be compiled separately. 
Type checking of calls to separately compiled routines is performed at load time 
to insure that the program as a whole is consistent. See the section "Separate 
compilation with pc," in Chapter 4 for details. 
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B.2. Implementation- 
Dependent Features 

File Name - File Variable 
Associations 



The program Statement 



The Fites input and 
output 



This section describes implementation-dependent features of Pascal, which are 
undefined by the standard. 

Each Pascal file variable is associated with a named UNIX file. Except for input 
and output , which are exceptions to some of the rules, a name can become asso- 
ciated with a file in any of three ways: 

• If a global Pascal file variable appears in the program statement then it is 
associated with the UNIX file of the same name. 

• If a Pascal file is reset or rewritten using the extended two-argument form of 
reset or rewrite then the given name is associated. 

• If a Pascal file that has never had a UNIX name associated with it is reset or 
rewritten without specifying a name via die second argument, then a tem- 
porary name of the form tmp . n is associated with the file. Temporary 
names start with tmp . 1 and continue by incrementing n in ASCII order. 
Temporary files are removed automatically when their scopes are exited. 

The syntax of the program statement is (in extended BNF)1^ 

program <id> ( <Jile id> { , <file id > } ) ; 
/ 



The file identifiers (other than input and output ) must be declared as vari- 
ables of type file in the global declaration part. 

The formal parameters input and output are associated with the UNIX stan- 
dard input and output and have a somewhat special status. The following rules 
must be noted: 

• The program heading must contain the formal parameter output if it does 
any output. If input is used (explicitly or implicitly) then it must also be 
declared here. 

• Unlike all other files, the Pascal files input and output must not be 
defined in a declaration, since their declaration is automatically done, as in 





\ 


var inputs output: text 




V 


-j 



• The procedure reset may be used on input . If no UNIX filename has 
ever been associated with input , and no filename is given, then an 
attempt is made to ‘rewind’ input . If this fails, a run-time error occurs, 
rewrite calls to output work as any other file, except that output 
has no associated file initially. This means that a simple 



r 




rewrite (output) 




< 


j 



For an explanation of extended BNF notation see Cooper[l], page 2. 
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Details For Files 



Buffering 



The Character Set 



associates a temporary name with output . 

If a file other than input is read, then reading must be initiated by a call to the 
procedure reset , which causes the Pascal system to attempt to open the asso- 
ciated UNIX file for reading. If this fails, then a run-time error occurs. Writing a 
file other than output must be initiated by a rewr it e call, which causes the 
Pascal system to create the associated UNIX file and then to open it for writing 
only. 

The buffering for output is determined by the value of the -b option at the 
end of the program statement. Ifit has its default value 1, then output is 
buffered in blocks of up to 1024 bytes, and is flushed when a wr iteln occurs 
and at each reference to the file input . If it has the value 0, output is 
unbuffered. Any value of 2 or more gives block buffering without line or input- 
reference flushing. All other output files are always buffered in blocks of 1024 
characters. All output buffers are flushed when the files are closed at scope exit 
or whenever the procedure message is called, and can be flushed using the 
built-in procedure flush. 

An important point for an interactive implementation is the definition of 
input T. If input is a terminal, and the Pascal system reads a character at the 
begi nni ng of execution to define input T, then no prompt can be printed by the 
program before the user is required to type some input. For this reason, 
input T is not defined by the system until its definition is needed, with reading 
from a file occurring only when necessary. 

Seven-bit ASCII is the character set used in UNIX. The standard Pascal symbols 
and, or, not, <=, >=, <>, and the up arrow ‘T’ (for pointer qualification) are 
recognized.*^ Less portable are the synonyms tilde (for not ), *&’ (for 
and ), and ‘|’ (for or ). 

Upper and lower case are corrsidered to be distinct.*^ Keywords and built-in 
procedure and function names are composed of all lower-case letters. 
Thus the identifiers GOTO and GOto are distinct both from each other and from 
the keyword goto . The standard type boolean is also available as 
Boolean. 

Character strings and constants may be delimited by the character ’, or by the 
character ‘#’ ; the latter is sometimes convenient when programs are to be tran- 
sported. Note that flie *#’ character has special meaning when it is the first char- 
acter on a line — see "Multi-file programs" in Chapter 4. 



On many terminals and printers, the up arrow is represented as a circumflex These are not distinct 
characters, but rather different graphic representations of the same internal codes. 

The ISO standard for Pascal considers them to be the same. The -sand -L options of pc, pt, pxp con- 
sider upper- and lower-case letters to be equivalent in identifiers and keywords. 
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The Standard Types 



Comments 



The standard type integer is conceptually defined as 

type integer = minint . . maxint; 



Integer is implemented with 32-bit two’s-complement arithmetic. The 
predefined constants of type integer are 

const maxint = 2147483647; minint = -2147483648; 

< ; 

The standard type char is conceptually defined as 

N 

type char = minchar . . maxchar; 
/ 



The built-in character constants are minchar and maxchar, bell and 
tab; ord (minchar) =0, ord (maxchar) = 127. 

The types real and longreal are implemented using 64-bit IEEE floating- 
point format and the type shortreal using 32-bit IEEE floating-point format 
The floating-point arithmetic for real and longreal is done in round to 
nearest moAt, and provides approximately 16 digits of precision with numbers 
whose magnitudes range from 5.0E-324 to 1.7E308. 

Pascal shortreal is the same as real *4 in FORTRAN and float in C. 

The maximum and minimum representable values are 3.402823e-i-38 and 5.0e- 
324. 

Values of type shortreal can represent about 7 decimal digits. Numeric 
type representations in Sun FORTRAN ate documented in the Sun FORTRAN 
FlProgrammers Guide manual in the chapter on data representation. 

Comments can be delimited by either and *}’ or by ‘(*’ and ‘*)’ (as opposed 
to the standard which does not distinguish between them). If the character 
appears in a comment delimited by and a warning diagnostic is printed. 

A similar warning is printed if the sequence *(*’ appears in a comment delimited 
by X*’ and **)’. The restriction implied by this warning is not part of standard 
Pascal, but detects many otherwise subtle errors. 

You can convert parts of your program to comments without generating an error 
diagnostic with the following: 

\ 

{ This is a coiranent enclosing a piece of program 
a := functioncall; (* comment within comment *) 
procedurecall; 

Ihs := rhs; (* another comment*) 

} 

V > 



By using one kind of comment exclusively in your program you can use the other 
delimiters when you need to comment out parts of your program. In this way. 
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Option Control 



Notes on the Listings 



you also allow the translator to help by detecting statements accidently placed 
within comments. 

If a comment does not terminate before the end of the input file, the translator 
points to the beginning of the comment, indicating that die comment is not ter- 
minated. In this case, processing terminates immediately. See the discussion of 
“QUIT” in Chapter 2. 

Translator options can be controlled in two distinct ways: on the command line, 
and in comments. Several options may appear on the command line invoking the 
translator. These options are given as one or more strings of letters preceded by 
the character ’ and cause the nondefault setting of each given option to be used. 
This method of options communication is expected to predominate for UNIX. 
Thus the command 




translates the file f oo . p with the listing option enabled (it’s normally off) and 
with only standard Pascal features available. 

If you requite mote control over the portions of the program where options are 
enabled then option control in comments can and should be used. Place a *$’ as 
the first character of the comment followed by a comma-separated list of direc- 
tives. Thus, the following is equivalent to the command line example given 
above: 

\ 

{$l+,s+ listing on, standard Pascal} 
/ 



as the first line of the program. The -1 option is more appropriately specified 
on the command line, since in an interactive environment it is unlikely one 
would want a listing of the program each time it is translated. 

Most directives consist of a letter designating the option, followed either by a '+’ 
to turn the option on, or by a ’ to turn the option off. The only exception is the 
-b option which takes a single digit instead of a *+’ or 

The first page of a listing includes a banner line indicating the version number 
and generation date of pi or pc . It also includes the UNIX pathname supplied for 
the source file and the date of last modification of that file. 

Within tile body of the listing, lines are numbered consecutively and correspond 
to the line numbers used by the vi editor. Currently, two special kinds of lines 
may be used to format the listing: a line consisting of a formfeed character 
(Control-L) causes a page eject in the listing, and a line with no characters causes 
the line number to be suppressed in the listing (creating a blank line). These 
lines correspond to ‘eject’ and ‘space’ macros found in many assemblers. Non- 
printing characters are printed as the character ‘?’ in the listing. 

The character generated by a Control-I indents to the next tab stop. Tab stops are set every 8 columns in 
UNIX. Thus, tabs provide a quick way of indenting in the program. 
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The Standard Procedure 

write 



B.3. Restrictions and 
Limitations 



If no minimum field length parameter is specified for a write, the following 
default values are assumed; 

integer 

real 

Boolean 

char 

string 

oct 

hex 

The end of each line in a text file should be indicated explicitly by 
writeln(f); wr it eln (output ) may be written simply as writeln. 
The built-in function page ( f ) puts a single ASCII formfeed character on the 
output file. For programs which are to be transported the filter pcc can be used 
to interpret carriage control, as UNIX does not normally do so. 



Files 

Arrays, Sets, and Strings 



Line and Symbol Length 



Procedure and Function 
Nesting and Program Size 



Files carmot be members of files or dynamically -allocated stmctures. 

For pi only, the calculations involving array subscripts and set elements are done 
with 16-bit arithmetic. This restricts the types with which arrays and sets may be 
defined. The lower bound of such a range must be greater than or equal to 
-32768, and the upper bound less than or equal to 32767. Strings may have any 
length from 1 to 65535 characters, and sets may contain no more than 65535 ele- 
ments. The range of elements in a set expression is bound by the definition of 
intset in the current scope. Refer to the section on "Additional Predefined Types" 
later in this chapter for more information. 

In pc , arrays may be any size that fits into the process address space. 

There is no intrinsic limit on the length of identifiers. Identifiers are considered 
to be distinct if they differ in any position over their entire length. The limit on 
the maximum input line length is currently 1024 characters. 

A maximum of 20 levels of procedure and function nesting is allowed. There is 
no fundamental, translator-defined limit on the size of the program that can be 
translated. The ultimate limit is defined by the available address space on the 
Sun workstation in use. If you encounter the ‘ran out of memory’ diagnostic 
message, the program can still be translated if smaller procedures are used, since 
a lot of space is freed by the translator at the completion of each procedure or 
function in the current implementation. 

In pi , there is an implementation-defined limit of 65536 bytes of storage per vari- 
able, but no limit on the number of variables. 



The default values for Ihe Sun-provided types shortrealand longreal are 14 and 22, respectively. 
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Overflow There is currently no checking for overflow on arithmetic operations at runtime. 

B.4. Added Types, Operators, 

Procedures and 
Functions 



Additional Predefined Types The type alf a is predefined as 



r 

type alf a = packed array [ 1..10 ] of char 




The type int set is predefined as 




r 

type intset = set of 0..127 


\ 




J 



Additional Predefined 
Operators 

Nonstandard Procedures 



In most cases, the context of an expression involving a constant set allows the 
translator to determine the type of the set, even diough the constant set itself may 
not uniquely determine this type. In the cases where it is not possible to deter- 
mine the type of the set from local context, the expression type defaults to a set 
over the entire base type unless the base type is integer In the latter case, 
the type defaults to the current binding of int set, which must be type 
set of (a subrange of) integer at that point 



The relationals ‘<’ and ‘>’ of proper set inclusion are available. 



argv(i,a) 



date (a) 



flush (f) 
halt 



assigns the (possibly tmncated or blank-padded) i’ th argument 
of the invocation of the current UNIX process to the variable 
a , where i is an integer and a is a string variable. The range of 
i is 0 to argc—1 . 

assigns the current date to the alf a variable a in the format 
dd mmm yy, where mmm is the first three characters of the 
month, (e.g., ‘Apr’). 

writes the output buffered for Pascal file /into the associated 
UNIX file. 

terminates the execution of the program with a control flow 
traceback. 



linelimit (f , x) 

causes the program to be abnormally terminated if more than x 
lines are written on file/, where/ is a textfile and x an integer 
expression. If x is less than 0 then no limit is imposed. 



message (x, . . . ) 

causes the parameters (which have the same format as for the 



The translators make a special case of the construct if ... in [ — ] and enforces only the more 
lax restriction on 16 -bit arithmetic given above in this case. 
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Nonstandard Functions 



built-in procedure write ), to be written unbuffered on 
stderr, which is usually the user’s terminal. 

null a procedure of no arguments which does absolutely nothing. 

It is useful as a place holder, and is generated by pxp in place 
of the invisible empty statement. 



remove (a) 


causes the UNIX file whose name is given by the string a, with 
trailing blanks eliminated, to be removed. 


reset (f , a) 


causes the file a (where a is a string with blanks trimmed) to 
be associated with/, and performs a reset on f. 


rewrite (f ^ 


a) 

is analogous to reset above. 


stlimit (i) 


sets the statement limit to be i statements, where i is an 
integer. Specifying the -p option to pc disables statement 
limit counting. 


time (a) 


causes the current time in the form ‘ hh:mm:ss ’ to be assigned 
to the alf a variable a. 


argc 


returns the count of arguments provided when the Pascal pro- 
gram was invoked. Argc is always at least 1. 


card (x) 


returns the cardinality of the set x , that is, the number of ele- 
ments in the set. 


clock 


returns an integer representing the system time (in mil- 
liseconds) used by this process. 


expo (x) 


yields the integer-valued exponent in the floating-point 
representation of x : 


f 

expo (x) = 


entier (log2 (abs (x))) . 

J 



random (x) 

invokes a linear congmential random number generator, where r is a real 
parameter that is evaluated but otherwise ignored. Successive seeds are gen- 
erated as (seed*a + c) mod m and the new random number is a nor- 
malization of the seed to the range 0.0 to 1.0; a is 62605, c is 1 13218009, 
and m is 536870912. The initial seed is 7774755. 

seed (i) 

sets the random number generator seed to i and returns the previous seed, 
where i is an integer. Thus, seed(seed(i) ) has no effect except to 
yield value i . 

sysclock 

returns the number of milliseconds of system time used by this process, 
sysclock is an integer function with no arguments. 
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undefined (x) 

a Boolean function. Its argument is a real number and it always returns 
false. 

wallclock 

returns the time in seconds since 00:00:00 GMT January 1, 1970. 
wallclock is an integer function with no arguments. 

sizeof (x) 

see Chapter 8 for extensions specific to the Sun implementation. 
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NAME 

pc - Pascal compiler 
SYNOPSIS 

pc [ -c ] [ -g ] [ -o output ] [ ~0 ] [ “b ] [ -C ] [ -Dname[-def] ] [float j>ption ] [ -H ] 

... ] [-1] [-Ipfc] [ -L ] [ ] [-P ] [-pg ] [-s ] [ -S ] 

[ -U name ] [ -w ] [ -z ] [ -Z ]filename.p . . . 

DESCRIPTION 

Pc is the Sun Pascal compiler. If given an argument file ending with .p, pc compiles the file and leaves the 
result in an executable file called a. out by default. 

A program may be separated into more than one ./? file. Pc will compile a number of ./? files into object 
files (with the extension .o in place of .p). Object files may then be loaded into an executable a. out file. 
Exactly one object file must supply a program statement to successfully create an executable a. out file. 
The rest of the files must consist only of declarations which logically nest within the program. References 
to objects shared between separately compiled files are allowed if the objects are declared in included 
header files, whose names must end with ,h. Header files may only be included at the outermost level, and 
thus declare only globally available objects. To allow external functions and procedures to be declared, 
an external directive has been added, whose use is similar to the forward directive but restricted to appear 
only in M files. Function and procedure bodies may not appear in M files. A binding phase of the com- 
piler checks that declarations are used consistently, to enforce the type checking rules of Pascal. 

Object files created by other language processors may be loaded together with object files created by pc. 
The functions and procedures they define must have been declared in .h files included by all the .p files 
which call those routines. 

Pascal’s calling conventions are compatible with those of C, with var parameters passed by address and 
other parameters passed by value. 

pc supports ISO Level 1 Standard Pascal, including conformant array parameters. Deviations from the ISO 
Standard are noted under BUGS below. 

See the Pascal User's Manual for details. 

OPTIONS 

See ld{\) for load- time options. 

-c Suppress loading and produce jo file(s) from source file(s). 

-g Produce additional symbol table information for the symbolic debugger dbx{\). 

— o name 

Name the final output file name instead of ax)ut. 

-O Optimize the object code. 

-b Buffer the file output in units of disk blocks, rather than lines 

-C Compile code to perform subscript and subrange checks and verify assert statements. Note that 
pointers are not checked. This option differs significantly from the -C option of the cc compiler. 

—Dname[=def\ 

Define name to the preprocessor, as if by a #define directive. If no defis given, name is defined 
as 1. 

float_option 

Floating-point code generation option. Can be one of: 

-fsoft software floating-point calls (This is the default). 

-fsky in-line code for Sky floating-point processor (supported only on Sun-2). 

-f68881 in-line code for Motorola 68881 floating-point processor supported only on Sun-3), 

-fswitch run-time-switched floating-point calls. The compiled object code is linked at run- 
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time to routines that support one of the above types of floating-point code. This was 
the default in previous releases. Only for use with programs that are floating-point 
intensive, and which must be portable to machines with various floating-point 
options. 

When invoked without float option, the compiler interrogates the FLOAT OPTION environment 
variable to determine the type of floating-point code to generate. Legal values for 
FLOAT OPTION are: ‘fsoft’, ‘fsky\ ‘f688Sr and ‘fswitch^ 

-H Compile code to perform range checking on pointers into the heap. 

-i name Produce a listing for the specified procedures, functions and include files, 

-Idir Add dir to the list of directories in which to search for #include files with names not beginning 
with slash The preprocessor first searches for #include in the directory containing Jilename.p, 
then in directories named with -I options (if any), and finally, in fusrf include . 

-1 Make a program listing during translation. 

-Ipfc Load common startup code for programs containing mixed Pascal and FORTRAN 77 object files. 
Such programs should also be loaded with the FORTRAN 77 libraries (see files below). 

-L Map upper case letters in keywords and identifiers to lower case. 

-p Prepare object files for profiling with gprof{l), 

-P Use partial evaluation semantics for the boolean operators and and or. For these operators only, 
left-to-right evaluation is guaranteed, and the second operand is evaluated only if necessary to 
determine the result. 

-pg Produce counting code in the manner of -p, but invoke a run-time recording mechanism that 
keeps more extensive statistics and produces a gmon.out at normal termination. An execution 
profile can then be generated using gprof(l). 

-s Accept standard Pascal only; nonstandard constructs and extensions cause warning diagnostics. 

-S Compile the named program, and leave the assembly language output on the corresponding file 
suffixed ‘.s’. No ‘.o’ is created. 



-Vname 

Remove any initial definition of name, 

-w Suppress warning messages. 

-X Allow execution profiling with pxp(l) by generating statement counters, and arranging for the 
creation of the profile data file pmon^ut when the resulting object is executed. 

-Z Initialize local variables to zero. 



Other arguments are taken to be loader option arguments or libraries of pc -compatible routines. Certain 
flags can also be controlled by comments within the program, as described in the Pascal Users Manual in 
the Sun Pascal Manual. 



FILES 

file.p 

/lib/cpp 

/usr/lib/pcO 

/Ub/fl 

/usr/lib/pc2 

/lib/c2 

/usr/lib/pc3 

/usr/lib/pc3.2strings 

/usr/lib/howjpc 

/usr/lib/libpc.a 



Pascal source files 
macro preprocessor 
compiler front end 
code generator 

inline expander of library calls 
peephole optimizer 

separate compilation consistency checker 
text of the error messages 
basic usage explanation 
intrinsic functions and I/O library 
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/usr/lib/libpfc.a 

/usr/lib/libF77.a 

/usr/lib/libI77.a 

/usr/lib/libU77.a 

/usr/lib/libm.a 

/lib/libc.a 



startup code for combined Pascal and FORTRAN programs 

FORTRAN intrinsics library 

FORTRAN I/O Ubrary 

FORTRAN<=>Unix interface library 

math library 

standard library, see intro (3) 



SEE ALSO 

The Pascal User's Manual in the Sun Pascal Manual. 
pi(l), pxp(l), pxref(l) 



DIAGNOSTICS 

For a basic explanation do 
tutorial% pc 

In the diagnostic output of the translator, lines containing syntax errors are listed with a flag indicating the 
point of error. Diagnostic messages indicate the action which the recovery mechanism took in order to be 
able to continue parsing. Some diagnostics indicate only that the input is ‘malformed.’ This occurs if the 
recovery can find no simple correction to make the input syntactically valid. 

Semantic error diagnostics indicate a line in the source text near the point of error. Some errors evoke 
more than one diagnostic to help pinpoint the error; the follow-up messages begin with an ellipsis 

The first character of each error message indicates its class: 

E Fatal error; no code will be generated, 

e Nonfatal error, 

w Warning - a potential problem, 

s Nonstandard Pascal construct warning. 

If a severe error occurs which inhibits further processing, the translator will give a diagnostic and then 
‘QUIT. 

Names whose definitions conflict with library definitions draw a warning. The library definition will be 
replaced by the one supplied in the Pascal program. Note that this can have unpleasant side effects. 

BUGS 

The keyword packed is recognized but has no effect. The ISO standard requires packed and unpacked 
structures to be distinguished for portability reasons. 

Binary set operators are required to have operands with identical types; the ISO standard allows different 
types, as long as the underlying base types are compatible. 

The -z flag doesn’t work for separately compiled files. 

Because the -s option is usurped by the compiler, it is not possible to pass the strip option to the loader. 
Thus programs which are to be stripped, must be run through strip{\) after they are con^iled. 
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NAME 

pi - Pascal interpreter code translator 
SYNOPSIS 

pi[-b][-l][-L][^n][--o/i^][-p][-s][--t][-u][-w][-z] 

[ “i name . . • ] name.p 

DESCRIPTION 

Pi translates the program in the file name.p leaving interpreter code in the file obj in the current directory. 
The interpreter code can be executed using px. Pix performs the functions of pi and px for Toad and go’ 
Pascal. 

Both pi and pc{\) support ISO Level 1 Standard Pascal, including conformant array parameters. Deviations 
from the ISO Standard are noted under BUGS below. 

OPTIONS 

The following flags are interpreted by pi; the associated options can also be controlled in comments within 
the program; see the Pascal UsePs Manual in the Sun Fortran and Pascal 
Manual for details. 

-b Buffer the file output in units of disk blocks, rather than lines. 

“i name 

Enable the listing for any specified procedures, functions, and include files. 

“1 Make a program listing during translation. 

-L Map all identifiers and keywords to lower case. 

-n Begin each listed include file on a new page with a banner line. 

— o name 

Name the final output file name instead of a.out. 

-p Suppress the post-mortem control flow backtrace if an error occurs; suppress statement limit count- 
ing. 

-s Accept standard Pascal only; non-standard constructs cause warning diagnostics. 

-t Suppress runtime tests of subrange variables and treat assert statements as comments. 

-u Card image mode; only the first 72 characters of input lines are used. 

-w Suppress warning diagnostics. 

-z Allow execution profiling with pxp by generating statement counters, and arranging for the creation 
of the profile data file pmon.out when the resulting object is executed. 

FILES 

file.p input file 

file.i include file(s) 

/usr/lib/pi3.*strings text of the error messages 

/usr/lib/how_pi* basic usage explanation 

obj interpreter code output 

SEE ALSO 

Sun Fortran and Pascal Manual 
pix(l), px(l), pxp(l), pxref(l) 

DIAGNOSTICS 

For a basic explanation do 
tutorial% pi 

In the diagnostic output of the translator, lines containing syntax errors are listed with a flag indicating the 
point of error. Diagnostic messages indicate the action which the recovery mechanism took in order to be 
able to continue parsing. Some diagnostics indicate only that the input is ‘malformed.’ This occurs if the 
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recovery can find no simple correction to make the input syntactically valid. 

Semantic error diagnostics indicate a line in the source text near the point of error. Some errors evoke 
more than one diagnostic to help pinpoint the error; the follow-up messages begin with an ellipsis 

The first character of each error message indicates its class: 

E Fatal error; no code will be generated, 

e Non-fatal error, 

w Warning - a potential problem, 

s Non-standard Pascal construct warning. 

If a severe error occurs which inhibits further processing, the translator will give a diagnostic and then 
‘QUIT’. 

BUGS 

The keyword packed is recognized but has no effect. The ISO standard requires packed and unpacked 
structures to be distinguished for portability reasons. 

Binary set operators are required to have operands with identical types; the ISO standard allows different 
types, as long as the underlying base types are compatible. 

For clarity, semantic errors should be flagged at an appropriate place in the source text, and multiple 
instances of the ‘same’ semantic error should be summarized at the end of a procedure or function rather 
than evoking many diagnostics. 

When include files are present, diagnostics relating to the last procedure in one file may appear after the 
beginning of the listing of the next. 
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PIX(l) 



USER COMMANDS 



prx(i) 



NAME 

pix - Pascal translator and interpreter 
SYNOPSIS 

pix [ options ] [ -i name ... ] name.p [ argument ... ] 

DESCRIPTION 

Pix is a ‘load and go’ version of Pascal which combines the functions of the translator pi and the interpreter 
px. Pix uses pi to translate the program in the file name.p and, if there were no fatal errors during transla- 
tion, calls px to execute the resulting interpretive code with the specified arguments. A temporary file is 
used for the object code; the file obj is neither created nor destroyed. 

Options are as described under pi(l). 

FILES 

/usr/ucb/pi Pascal translator 

/usr/ucb/px Pascal interpreter 

/tmp/pix* temporary 

/usr/lib/how_pix basic explanation 

SEE ALSO 

The Pascal User's Manual in the Pascal for the Sun Workstation Manual. 
pi(l), px(l) 

DIAGNOSTICS 

For a basic explanation do 
tutorials pix 
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PMERGE(l) 



USER COMMANDS 



EMERGE ( 1 ) 



NAME 

pmerge - pascal file merger 

SYNOPSIS 

pmerge name.p ... 

DESCRIPTION 

Pmerge assembles the named Pascal files into a single standard Pascal program. The resulting program is 
listed on the standard output It is intended to be used to merge a collection of separately compiled 
modules so that they can be run through pi, or exported to other sites. 

FILES 

/usr/tmp/MG* default temporary files 

SEE ALSO 

pc(l), pi(l), 

Auxiliary documentation Pascal User s Manual in the Sun Fortran and Pascal Manual. 

BUGS 

Very minimal error checking is done, so incorrect programs will produce unpredictable results. Block 
comments should be placed after the keyword to which they refer or they are likely to end up in bizarre 
places. 
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PX(1) 



USER COMMANDS 



PX(1) 



NAME 

px - Pascal interpreter 
SYNOPSIS 

px [ obj [ argument ... ] ] 

DESCRIPTION 

Px interprets the abstract machine code generated by pi. The first argument is the file to be inteipreted, and 
defaults to obj; remaining arguments are available to the Pascal program using the built-ins argv and argc. 
Px is also invoked by pix when running ‘load and go'. 

If the program terminates abnormally an error message and a control flow backtrace are printed. The 
number of statements executed and total execution time are printed after normal termination. The p option 
of pi suppresses all of this except the message indicating the cause of abnormal termination. 

FILES 

obj default object file 

pmon.out profile data file 

SEE ALSO 

The Pascal Users Manual in the Sun Pascal Manual. 
pi(l), pix(l) 

DIAGNOSTICS 

Most run-time error messages are self-explanatory. Some of the more unusual ones are: 

Reference to an inactive file 

A file other than input or output was used before a call to reset or rewrite. 

Statement count limit exceeded 

The limit of 500,000 executed statements (which prevents excessive looping or recursion) has been 
exceeded. 

Bad data found on integer read 
Bad data found on real read 

Usually; non-numeric input was found for a number. For reals, Pascal requires digits before and 
after the decimal point so that numbers like ‘.T or ‘21.' evoke the second diagnostic. 

panic: Some message 

Indicates a internal inconsistency detected in px probably due to a Pascal system bug. 

BUGS 

Post-mortem traceback is not limited; infinite recursion leads to almost infinite traceback. 
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PXP(l) 



USER COMMANDS 



PXP(l) 



NAME 

pxp - Pascal execution profiler 
SYNOPSIS 

pxp [ -acdefjLnstuw_ ] [ -23456789 ] [ -z [ name ... ] ] name.p 
DESCRIPTION 

Pxp can be used to obtain execution profiles of Pascal programs or as a pretty-printer. To produce an exe- 
cution profile all that is necessary is to translate the program specifying the z option to pc, pi, or pix, exe- 
cute the program, and then type the command 
tutorial% pxp -z name.p 

Pxp generates a reformatted listing if none of the c, t, or z options are specified; thus 
tutorial^ pxp old.p > new.p 

places a pretty-printed version of the program in old.p in the file new.p. 

OPTIONS 

The use of the following options of pxp is discussed in the Pascal User's Manual in the Sun Pascal 
Manual. 

-a Print the bodies of all procedures and functions in the profile; even those which were never executed, 
-c Extract profile data from the file core . 

-d Include declaration parts in a profile. 

-e Eliminate include directives when reformatting a file; the include is replaced by the reformatted con- 
tents of the specified file. 

“f Fully parenthesize expressions. 

-j Left justify all procedures and functions. 

-L Map all identifiers and keywords to lower case. 

-n Eject a new page as each file is included; in profiles, print a blank line at the top of the page. 

-s Strip comments from the input text. 

~t Print a table summarizing procedure and function call counts. 

-u Card image mode; only the first 72 characters of input lines are used. 

“W Suppress warning diagnostics. 

-z Generate an execution profile. If no name^ are given the profile is of the entire program. If a list of 
names is given, then only the specified procedures or functions and the contents of the specified 
include files will appear in the profile. 

— _ Underline keywords. 

-d Use d spaces (where dissi digit, 2 < (i < 9) as the basic indenting unit. The default is 4. 

FILES 

name.p input file 

name.i include file(s) 

name.h include file(s) 

pmon.out profile data 

core profile data source for -c option 

/usr/lib/how_pxp information on basic usage 
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PXP(l) 



USER COMMANDS 



PXP(l) 



SEE ALSO 

The Pascal User's Manual in the Sun Pascal Manual. 
pc(l), pi(l),px(l) 

DIAGNOSTICS 

For a basic explanation do 
tutorial^ pxp 

Error diagnostics include ‘No profile data in file’ with the c option if the z option was not enabled to pi; 
‘Not a Pascal system core file’ if the core is not from a px execution; ‘Program and count data do not 
correspond’ if the program was changed after compilation, before profiling; or if the wrong program is 
specified. 

BUGS 

Does not place multiple statements per line. 

Procedures and functions as parameters are printed without nested parameter lists, as in the obsolete Jensen 
and Wirth syntax. 
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PXREF(l) 



USER COMMANDS 



PXREF(l) 



NAME 

pxref- Pascal cross-reference program 

SYNOPSIS 

pxref [ - ] name 

DESCRIPTION 

Pxre/ makes a line numbered listing and a cross-reference of identifier usage for the program in name. The 
optional argument suppresses the listing. The keywords goto and label are treated as identifiers for the 
purpose of the cross-reference. Include directives are not processed, but cause the placement of an entry 
indexed by ‘#include’ in the cross-reference. 

SEE ALSO 

The Pascal User* s Manual in the Sun Fortran and Pascal Manual. 

BUGS 

Identifiers are trimmed to 10 characters. 
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Revision History 



Version 


Date 


Comments 


A 


October 1980 


This revision was the Berkeley Pascal 
User’s Manual Version 2.0. 


B 


July 1983 


This revision was the Berkeley Pascal 
User’s Manual Version 3.0. Sun 
Microsystems updates to this manual 
removed references to the CYBER 6000 
implementation details. 


C 


7 January 1984 


Minor corrections and updates. 


D 


19 November 1984 


2.0 a release 


D 


5 February 1985 


2.0 P release 


D 


15 May 1985 


2.0 release 


E 


17 Febmary 1986 


3.0 release 
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